robust_excel_ole 1.26 → 1.31

data/spec/range_spec.rb

@@ -1,5 +1,5 @@
 # -*- coding: utf-8 -*-
-require File.join(File.dirname(__FILE__), './spec_helper')
+require_relative 'spec_helper'
 
 include RobustExcelOle
 include General
@@ -73,19 +73,6 @@ describe RobustExcelOle::Range do
       end
     end
 
-    it "should work with [] doing cashing synchonized, from #each to #[]" do
-      @range2[0].Value.should == 'simple'
-      @range2[1].Value.should == 'file'
-      @range2[2].Value.should == 'sheet2'
-      i = 0
-      @range2.each do |cell|
-        cell.Value = 'foo' if i == 0
-        cell.Value = 'bar' if i == 1
-        cell.Value = 'simple' if i == 2
-        i += 1
-      end
-    end
-
   end
 
   describe "#values" do

data/spec/spec_helper.rb

@@ -2,7 +2,7 @@
 require "rspec"
 require 'tmpdir'
 require "fileutils"
-require File.join(File.dirname(__FILE__), '../lib/robust_excel_ole')
+require_relative '../lib/robust_excel_ole'
 
 # @private
 module RobustExcelOle::SpecHelpers

data/spec/workbook_spec.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './spec_helper')
+require_relative 'spec_helper'
 require 'pathname'
 
 $VERBOSE = nil
@@ -1103,12 +1103,12 @@ describe Workbook do
     end   
 
     it "should return value of a range" do
-      @book1.namevalue_glob("new").should == "foo"
-      @book1.namevalue_glob("one").should == 1
-      @book1.namevalue_glob("firstrow").should == [[1,2]]        
-      @book1.namevalue_glob("four").should == [[1,2],[3,4]]
-      @book1.namevalue_glob("firstrow").should_not == "12"
-      @book1.namevalue_glob("firstcell").should == "foo"        
+      @book1.namevalue_global("new").should == "foo"
+      @book1.namevalue_global("one").should == 1
+      @book1.namevalue_global("firstrow").should == [[1,2]]        
+      @book1.namevalue_global("four").should == [[1,2],[3,4]]
+      @book1.namevalue_global("firstrow").should_not == "12"
+      @book1.namevalue_global("firstcell").should == "foo"        
     end
 
     it "should return value of a range via []" do
@@ -1121,17 +1121,17 @@ describe Workbook do
     end
 
     it "should set value of a range" do
-      @book1.set_namevalue_glob("new", "bar")
-      @book1.namevalue_glob("new").should == "bar"
+      @book1.set_namevalue_global("new", "bar")
+      @book1.namevalue_global("new").should == "bar"
     end
 
     it "should set value of a range via []=" do
       @book1["new"] = "bar"
-      @book1.namevalue_glob("new").should == "bar"
+      @book1.namevalue_global("new").should == "bar"
     end
 
     #it "should evaluate a formula" do
-    #  @book1.namevalue_glob("named_formula").should == 4      
+    #  @book1.namevalue_global("named_formula").should == 4      
     #end
 
     #it "should evaluate a formula via []" do
@@ -1139,7 +1139,7 @@ describe Workbook do
     #end
 
     #it "should return default value if name not defined" do
-    #  @book1.namevalue_glob("foo", :default => 2).should == 2
+    #  @book1.namevalue_global("foo", :default => 2).should == 2
     #end
 
   end

data/spec/workbook_specs/workbook_all_spec.rb

@@ -1,33 +1,13 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
+require_relative '../spec_helper'
 
 $VERBOSE = nil
 
-require File.expand_path("workbook_open_spec", File.dirname(__FILE__)) 
-require File.expand_path("workbook_close_spec", File.dirname(__FILE__))
-require File.expand_path("workbook_save_spec", File.dirname(__FILE__))
-require File.expand_path("workbook_misc_spec", File.dirname(__FILE__))
-require File.expand_path("workbook_sheet_spec", File.dirname(__FILE__))
-require File.expand_path("workbook_unobtr_spec", File.dirname(__FILE__))
-require File.expand_path("workbook_subclass_spec", File.dirname(__FILE__))
-
-=begin
-$VERBOSE = nil
-
-include General
-
-unless Object.method_defined?(:require_relative)
-  def require_relative path
-    require File.expand_path(path, File.dirname(__FILE__))  
-  end
-end
-
-require_relative "workbook_open_spec"
-require_relative "workbook_close_spec"
-require_relative "workbook_save_spec"
-require_relative "workbook_misc_spec"
-require_relative "workbook_sheet_spec"
-require_relative "workbook_unobtr_spec"
-require_relative "workbook_subclass_spec"
-=end
+require_relative 'workbook_open_spec'
+require_relative 'workbook_close_spec'
+require_relative 'workbook_save_spec'
+require_relative 'workbook_misc_spec'
+require_relative 'workbook_sheet_spec'
+require_relative 'workbook_unobtr_spec'
+require_relative 'workbook_subclass_spec'

data/spec/workbook_specs/workbook_close_spec.rb

@@ -1,7 +1,7 @@
 
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
+require_relative '../spec_helper'
 
 
 $VERBOSE = nil

data/spec/workbook_specs/workbook_misc_spec.rb

@@ -1,13 +1,14 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
-
+require_relative '../spec_helper'
 
 $VERBOSE = nil
 
 include RobustExcelOle
 include General
 
+using ToReoRefinement
+
 describe Workbook do
 
   before(:all) do
@@ -24,7 +25,6 @@ describe Workbook do
     @different_file = @dir + '/different_workbook.xls'
     @simple_file_other_path = @dir + '/more_data/workbook.xls'
     @another_simple_file = @dir + '/another_workbook.xls'
-    @linked_file = @dir + '/workbook_linked.xlsm'
     @simple_file_xlsm = @dir + '/workbook.xls'
     @simple_file_xlsx = @dir + '/workbook.xlsx'
     @simple_file1 = @simple_file
@@ -669,7 +669,7 @@ describe Workbook do
     end
   end
 
-  describe "namevalue_glob, set_namevalue_glob, [], []=" do
+  describe "namevalue_global, set_namevalue_global, [], []=" do
   
     before do
       @book1 = Workbook.open(@another_simple_file)
@@ -680,12 +680,12 @@ describe Workbook do
     end   
 
     it "should return value of a range" do
-      @book1.namevalue_glob("new").should == "foo"
-      @book1.namevalue_glob("one").should == 1
-      @book1.namevalue_glob("firstrow").should == [[1,2]]        
-      @book1.namevalue_glob("four").should == [[1,2],[3,4]]
-      @book1.namevalue_glob("firstrow").should_not == "12"
-      @book1.namevalue_glob("firstcell").should == "foo"        
+      @book1.namevalue_global("new").should == "foo"
+      @book1.namevalue_global("one").should == 1
+      @book1.namevalue_global("firstrow").should == [[1,2]]        
+      @book1.namevalue_global("four").should == [[1,2],[3,4]]
+      @book1.namevalue_global("firstrow").should_not == "12"
+      @book1.namevalue_global("firstcell").should == "foo"        
     end
 
     it "should return value of a range via []" do
@@ -698,17 +698,17 @@ describe Workbook do
     end
 
     it "should set value of a range" do
-      @book1.set_namevalue_glob("new", "bar")
-      @book1.namevalue_glob("new").should == "bar"
+      @book1.set_namevalue_global("new", "bar")
+      @book1.namevalue_global("new").should == "bar"
     end
 
     it "should set value of a range via []=" do
       @book1["new"] = "bar"
-      @book1.namevalue_glob("new").should == "bar"
+      @book1.namevalue_global("new").should == "bar"
     end
 
     #it "should evaluate a formula" do
-    #  @book1.namevalue_glob("named_formula").should == 4      
+    #  @book1.namevalue_global("named_formula").should == 4      
     #end
 
     #it "should evaluate a formula via []" do
@@ -717,28 +717,28 @@ describe Workbook do
 
     it "should raise an error if name not defined and default value is not provided" do
       expect {
-        @book1.namevalue_glob("foo", :default => nil)
+        @book1.namevalue_global("foo", :default => nil)
       }.to_not raise_error
       expect {
-        @book1.namevalue_glob("foo", :default => :__not_provided)
+        @book1.namevalue_global("foo", :default => :__not_provided)
       }.to raise_error(NameNotFound, /name "foo" not in #<Workbook: another_workbook/)
       expect {
-        @book1.namevalue_glob("foo")
+        @book1.namevalue_global("foo")
       }.to raise_error(NameNotFound, /name "foo" not in #<Workbook: another_workbook/)
-      @book1.namevalue_glob("foo", :default => nil).should be_nil
-      @book1.namevalue_glob("foo", :default => 1).should == 1
+      @book1.namevalue_global("foo", :default => nil).should be_nil
+      @book1.namevalue_global("foo", :default => 1).should == 1
       expect {
-          @book1.set_namevalue_glob("foo","bar")
+          @book1.set_namevalue_global("foo","bar")
       }.to raise_error(RangeNotEvaluatable, /cannot assign value to range named "foo"/)
       expect {
           @book1["foo"] = "bar"
       }.to raise_error(RangeNotEvaluatable, /cannot assign value to range named "foo"/)
-      @book1.namevalue_glob("empty", :default => 1).should be_nil
+      @book1.namevalue_global("empty", :default => 1).should be_nil
     end    
 
     it "should raise an error if name was defined but contents is calcuated" do
       expect {
-        @book1.set_namevalue_glob("named_formula","bar")
+        @book1.set_namevalue_global("named_formula","bar")
       }.to raise_error(RangeNotEvaluatable, /cannot assign value to range named "named_formula" in #<Workbook: another_workbook/)
       expect {
         @book1["named_formula"] = "bar"
@@ -747,19 +747,19 @@ describe Workbook do
 
     # Excel Bug: for local names without uqifier: takes the first sheet as default even if another sheet is activated
     it "should take the first sheet as default even if the second sheet is activated" do
-      @book1.namevalue_glob("Sheet1!localname").should == "bar"
-      @book1.namevalue_glob("Sheet2!localname").should == "simple"
-      @book1.namevalue_glob("localname").should == "bar"
+      @book1.namevalue_global("Sheet1!localname").should == "bar"
+      @book1.namevalue_global("Sheet2!localname").should == "simple"
+      @book1.namevalue_global("localname").should == "bar"
       @book1.Worksheets.Item(2).Activate
-      @book1.namevalue_glob("localname").should == "bar"
+      @book1.namevalue_global("localname").should == "bar"
       @book1.Worksheets.Item(1).Delete
-      @book1.namevalue_glob("localname").should == "simple"
+      @book1.namevalue_global("localname").should == "simple"
     end
 
     it "should color the cell (deprecated)" do
-      @book1.set_namevalue_glob("new", "bar")
+      @book1.set_namevalue_global("new", "bar")
       @book1.Names.Item("new").RefersToRange.Interior.ColorIndex.should == -4142
-      @book1.set_namevalue_glob("new", "bar", :color => 4)
+      @book1.set_namevalue_global("new", "bar", :color => 4)
       @book1.Names.Item("new").RefersToRange.Interior.ColorIndex.should == 4
       @book1["new"].should == "bar"
       @book1["new"] = "bar"
@@ -771,9 +771,9 @@ describe Workbook do
     end
 
     it "should color the cell" do
-      @book1.set_namevalue_glob("new", "bar")
+      @book1.set_namevalue_global("new", "bar")
       @book1.Names.Item("new").RefersToRange.Interior.ColorIndex.should == -4142
-      @book1.set_namevalue_glob("new", "bar", :color => 4)
+      @book1.set_namevalue_global("new", "bar", :color => 4)
       @book1.Names.Item("new").RefersToRange.Interior.ColorIndex.should == 4
       @book1["new"].should == "bar"
       @book1["new"] = "bar"
@@ -796,7 +796,7 @@ describe Workbook do
 
     it "should rename a range" do
       @book1.rename_range("four","five")
-      @book1.namevalue_glob("five").should == [[1,2],[3,4]]
+      @book1.namevalue_global("five").should == [[1,2],[3,4]]
       expect {
         @book1.rename_range("four","five")
       }.to raise_error(NameNotFound, /name "four" not in "another_workbook.xls"/)
@@ -1165,7 +1165,7 @@ describe Workbook do
         @book1.add_name("foo",[1,1])
         @book1.delete_name("foo")
         expect{
-          @book1.namevalue_glob("foo")
+          @book1.namevalue_global("foo")
         }.to raise_error(NameNotFound, /name "foo"/)
       end
 

data/spec/workbook_specs/workbook_open_spec.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
+require_relative '../spec_helper'
 
 
 $VERBOSE = nil
@@ -24,7 +24,6 @@ describe Workbook do
     @different_file = @dir + '/different_workbook.xls'
     @simple_file_other_path = @dir + '/more_data/workbook.xls'
     @another_simple_file = @dir + '/another_workbook.xls'
-    @linked_file = @dir + '/workbook_linked.xlsm'
     @simple_file_xlsm = @dir + '/workbook.xlsm'
     @simple_file_xlsx = @dir + '/workbook.xlsx'
     @simple_file1 = @simple_file
@@ -43,6 +42,10 @@ describe Workbook do
     @simple_file_hostname_share_path_other_path1 = @simple_file_hostname_share_path_other_path
     @simple_file_xlsm1 = @simple_file_xlsm
     @simple_file_xlsx1 = @simple_file_xlsx
+    #@linked_file = @dir + '/workbook_linked.xlsm'
+    #@sub_file = @dir + '/workbook_sub.xlsm'
+    @main_file = @dir + '/workbook_linked3.xlsm'
+    @sub_file = @dir + '/workbook_linked_sub.xlsm'
     @error_message_excel = "provided Excel option value is neither an Excel object nor a valid option"
   end
 
@@ -51,6 +54,45 @@ describe Workbook do
     rm_tmp(@dir)
   end
 
+  describe "linked workbooks" do
+
+    context "standard" do
+
+      before do
+        @book1 = Workbook.open(@main_file)
+      end
+
+      it "should open the main workbook and the linked workbook" do
+        @book1.should be_alive
+        @book1.should be_a Workbook
+        @book1.filename.should == @main_file
+        Excel.current.workbooks.map{|b| b.filename}.should == [@main_file, @sub_file]
+        book2 = Workbook.open(@sub_file)
+        book2.should be_alive
+        book2.should be_a Workbook
+        book2.filename.should == @sub_file
+      end
+
+      it "should close the main workbook" do
+        @book1.close
+        Excel.current.workbooks.map{|b| b.filename}.should == [@sub_file]
+      end
+
+      it "should raise error when trying to close the linked workbook" do
+        book2 = Workbook.open(@sub_file)
+        expect{
+         book2.close
+        }.to raise_error(WorkbookLinked)
+      end
+
+      it "should raise error when trying to change the read-only mode of the linked workbook" do
+        expect{
+          book2 = Workbook.open(@sub_file, :read_only => true)
+        }.to raise_error(WorkbookLinked)
+      end
+    end
+  end
+
   describe "basic tests with xlsx-workbooks" do
 
     context "with simple file" do
@@ -273,6 +315,17 @@ describe Workbook do
       bookstore = Bookstore.new
     end
 
+    it "should fetch a network path file given a not via Reo opened hostname share file" do
+      ole_e1 = WIN32OLE.new('Excel.Application')
+      ws = ole_e1.Workbooks
+      abs_filename = General.absolute_path(@simple_file_hostname_share_path)
+      @ole_wb = ws.Open(abs_filename)
+      book2 = Workbook.open(@simple_file_network_path)
+      #book2.should === @ole_wb.to_reo
+      book2.Fullname.should == @ole_wb.Fullname
+      book2.excel.Workbooks.Count.should == 1
+    end
+
     it "should fetch a network path file given a hostname share file" do
       book1 = Workbook.open(@simple_file_hostname_share_path)
       book2 = Workbook.open(@simple_file_network_path)
@@ -2620,8 +2673,6 @@ describe Workbook do
           @book.should be_alive
         end
 
-        
-
         it "should not open the new book and not close the unsaved book, if user answers 'no'" do
           # "No" is right to "Yes" (the  default). --> language independent
           # strangely, in the "no" case, the question will sometimes be repeated three time
@@ -2973,7 +3024,7 @@ describe Workbook do
     context "with various file formats" do
 
       it "should open linked workbook" do
-        book = Workbook.open(@linked_file, :visible => true)
+        book = Workbook.open(@main_file, :visible => true)
         book.close
       end
 

data/spec/workbook_specs/workbook_save_spec.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
+require_relative '../spec_helper'
 
 
 $VERBOSE = nil

data/spec/workbook_specs/workbook_sheet_spec.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
+require_relative '../spec_helper'
 
 
 $VERBOSE = nil

data/spec/workbook_specs/workbook_subclass_spec.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
+require_relative '../spec_helper'
 
 # @private
 module My 

data/spec/workbook_specs/workbook_unobtr_spec.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 
-require File.join(File.dirname(__FILE__), './../spec_helper')
+require_relative '../spec_helper'
 
 
 $VERBOSE = nil
@@ -24,7 +24,10 @@ describe Workbook do
     @different_file = @dir + '/different_workbook.xls'
     @simple_file_other_path = @dir + '/more_data/workbook.xls'
     @another_simple_file = @dir + '/another_workbook.xls'
-    @linked_file = @dir + '/workbook_linked.xlsm'
+    #@main_file = @dir + '/workbook_linked.xlsm'
+    #@linked_sub_file = @dir + '/workbook_sub.xlsm'
+    @main_file = @dir + '/workbook_linked3.xlsm'
+    @sub_file = @dir + '/workbook_linked_sub.xlsm'
     @simple_file_xlsm = @dir + '/workbook.xlsm'
     @simple_file_xlsx = @dir + '/workbook.xlsx'
     @simple_file1 = @simple_file
@@ -35,9 +38,203 @@ describe Workbook do
     rm_tmp(@dir)
   end
 
-  describe "Workbook#for_reading, #for_modifying" do
-    
-    context "with standard" do
+  describe "writable" do
+
+    context "with no book" do
+
+      it "should open in read-only mode" do
+        Workbook.unobtrusively(@simple_file1, :writable => false) do |book|            
+          book.ReadOnly.should be true
+        end
+      end
+
+      it "should open in writable mode" do
+        Workbook.unobtrusively(@simple_file1, :writable => true) do |book|            
+          book.ReadOnly.should be false
+        end
+      end
+
+    end
+
+    context "with open writable book" do
+
+      before do
+        @book = Workbook.open(@simple_file1)
+      end
+
+      it "should keep the read-only mode" do
+        Workbook.unobtrusively(@simple_file1, :writable => false) do |book|            
+          book.ReadOnly.should be false
+        end
+      end
+
+    end
+
+    context "with open read-only book" do
+
+      before do
+        @book = Workbook.open(@simple_file1, :read_only => true)
+      end
+
+      it "should keep the read-only mode" do
+        Workbook.unobtrusively(@simple_file1, :writable => true) do |book|            
+          book.ReadOnly.should be true
+        end
+      end
+
+    end
+
+  end
+
+  describe "for_reading, for_modifying" do
+
+    context "with no workbook" do
+
+      it "should open with read-only" do
+        Workbook.for_reading(@simple_file1) do |book|
+          book.should be_a Workbook
+          book.should be_alive
+          book.ReadOnly.should be true
+          book.Saved.should be true  
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          @new_cell_value = sheet[1,1].Value
+          book.Saved.should be false
+        end
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @new_cell_value
+      end
+
+      it "should change the value" do
+        Workbook.for_modifying(@simple_file1) do |book|
+          book.should be_a Workbook
+          book.should be_alive
+          book.ReadOnly.should be false
+          book.Saved.should be true  
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          @new_cell_value = sheet[1,1].Value
+          book.Saved.should be false
+        end
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should == @new_cell_value
+      end
+
+    end
+
+    context "with closed writable workbook" do
+
+      before do
+        @book = Workbook.open(@simple_file1)
+        sheet = @book.sheet(1)
+        @old_cell_value = sheet[1,1].Value
+        @book.close
+      end
+
+      it "should not change the value" do
+        Workbook.for_reading(@simple_file1) do |book|
+          book.should be_a Workbook
+          book.should be_alive
+          book.ReadOnly.should be true
+          book.Saved.should be true  
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          book.Saved.should be false
+          book.excel.should == @book.excel
+        end
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should == @old_cell_value
+      end
+
+      it "should not change the value and use a given Excel" do
+        new_excel = Excel.new(:reuse => false)
+        another_excel = Excel.new(:reuse => false)
+        Workbook.for_reading(@simple_file1, :if_closed => another_excel) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          book.excel.should == another_excel
+        end
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should == @old_cell_value
+      end
+
+      it "should not change the value and use the new Excel instance" do
+        new_excel = Excel.new(:reuse => false)
+        Workbook.for_reading(@simple_file1, :if_closed => :new) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          book.excel.should_not == @book.excel
+          book.excel.should_not == new_excel
+          book.excel.properties[:visible].should be false
+          book.excel.properties[:displayalerts].should == :if_visible
+        end
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should == @old_cell_value
+      end
+
+      it "should change the value" do
+        Workbook.for_modifying(@simple_file1) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          book.excel.should == @book.excel
+        end
+        new_book = Workbook.open(@simple_file, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+
+      it "should change the value and use a given Excel" do
+        @book.close
+        new_excel = Excel.new(:reuse => false)
+        another_excel = Excel.new(:reuse => false)
+        Workbook.for_modifying(@simple_file1, :if_closed => another_excel) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          book.excel.should == another_excel
+        end
+        new_book = Workbook.open(@simple_file1, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+
+      it "should change the value and use the new Excel instance" do
+        new_excel = Excel.new(:reuse => false)
+        Workbook.for_modifying(@simple_file1, :if_closed => :new) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+          book.excel.should_not == @book.excel
+          book.excel.should_not == new_excel
+          book.excel.properties[:visible].should be false
+          book.excel.properties[:displayalerts].should == :if_visible
+        end
+        new_book = Workbook.open(@simple_file1, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+    end
+  end
+
+  describe "Workbook.for_reading, for_modifying" do
+      
+    context "with open writable book" do
 
       before do
         @book = Workbook.open(@simple_file1)
@@ -52,6 +249,7 @@ describe Workbook do
         @book.for_reading do |book|
           book.should be_a Workbook
           book.should be_alive
+          book.ReadOnly.should be false
           book.Saved.should be true  
           book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           book.Saved.should be false
@@ -106,6 +304,70 @@ describe Workbook do
  
   end
 
+  describe "with referenced workbooks" do
+
+    context "with no books" do
+
+      it "should open the linked workbook in read-only" do
+        Workbook.unobtrusively(@sub_file, :writable => false) do |book|            
+          book.ReadOnly.should be true
+          book.filename.should == @sub_file
+        end
+        Excel.current.workbooks.should == [] 
+      end
+
+      it "should open the workbook and its linked workbook in read-only" do
+        Workbook.unobtrusively(@main_file, :writable => false) do |book|            
+          book.ReadOnly.should be true
+          book.filename.should == @main_file
+          book.excel.workbooks.map{|b| b.filename}.should == [@sub_file, @main_file]
+        end
+        Excel.current.workbooks.map{|b| b.filename}.should  == [@sub_file] 
+      end
+
+      it "should not write the linked workbook and close it" do
+        Workbook.unobtrusively(@sub_file, :writable => false) do |book|            
+          book.ReadOnly.should be true
+          book.filename.should == @sub_file
+          @old_value = book.sheet(1)[1,1].Value
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+        end
+        Excel.current.workbooks.should == [] 
+      end
+
+      it "should not write the main workbook and close the linked file as well" do
+        Workbook.unobtrusively(@main_file, :writable => false) do |book|            
+          book.ReadOnly.should be true
+          book.filename.should == @main_file
+          @old_value = book.sheet(1)[1,1].Value
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+        end
+        Excel.current.workbooks.map{|b| b.filename}.should == [@sub_file] 
+      end
+
+    end
+
+    context "with open books" do
+
+      before do
+        @book_main = Workbook.open(@main_file)
+      end
+
+      it "should leave the read-only mode" do
+        Workbook.unobtrusively(@sub_file, :read_only_default => true) do |book|            
+          book.ReadOnly.should be false
+        end
+      end
+      
+      it "should force to read-only" do
+        expect{
+          Workbook.unobtrusively(@sub_file, :read_only => true) do
+          end
+        }.to raise_error(WorkbookLinked)
+      end
+    end
+  end
+
   describe "Workbook#unobtrusively" do
 
     context "with a writable saved workbook" do
@@ -778,7 +1040,7 @@ describe Workbook do
           b1.sheet(1)[1,1].Value.should_not == @old_value
         end
 
-        it "should open as read-write" do
+        it "should open as read-write but not save changes" do
           Workbook.unobtrusively(@simple_file, :read_only => false, :writable => false) do |book|
             book.ReadOnly.should be false
             @old_value = book.sheet(1)[1,1].Value
@@ -838,9 +1100,9 @@ describe Workbook do
           b1.sheet(1)[1,1].Value.should == @old_value
         end
 
-        it "should open not writable" do
+        it "should open not writable and read-only" do
           Workbook.unobtrusively(@simple_file, :writable => false) do |book|
-            #
+            book.ReadOnly.should be true
             @old_value = book.sheet(1)[1,1].Value
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
             book.Saved.should be false            
@@ -935,7 +1197,7 @@ describe Workbook do
               book.ReadOnly.should be true
               book.should == @book
               book.filename.should == @book.filename
-              book.excel.should_not == @book.excel
+              book.excel.should == @book.excel
               book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
             end
             }.to raise_error(WorkbookReadOnly)
@@ -1013,7 +1275,7 @@ describe Workbook do
             book.Readonly.should be false
             book.should == @book
             book.filename.should == @book.filename
-            book.excel.should_not == @book.excel
+            book.excel.should == @book.excel
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           end
           @book.close
@@ -1026,7 +1288,7 @@ describe Workbook do
             book.Readonly.should be false
             book.should == @book
             book.filename.should == @book.filename
-            book.excel.should_not == @book.excel
+            book.excel.should == @book.excel
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           end
           @book.close
@@ -2336,108 +2598,4 @@ describe Workbook do
 
   end
 
-  describe "for_reading, for_modifying" do
-
-    context "open unobtrusively for reading and modifying" do
-
-      before do
-        @book = Workbook.open(@simple_file1)
-        sheet = @book.sheet(1)
-        @old_cell_value = sheet[1,1].Value
-        @book.close
-      end
-
-      it "should not change the value" do
-        Workbook.for_reading(@simple_file1) do |book|
-          book.should be_a Workbook
-          book.should be_alive
-          book.Saved.should be true  
-          sheet = book.sheet(1)
-          cell = sheet[1,1]
-          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
-          book.Saved.should be false
-          book.excel.should == @book.excel
-        end
-        Excel.kill_all
-        new_book = Workbook.open(@simple_file1)
-        sheet = new_book.sheet(1)
-        sheet[1,1].Value.should == @old_cell_value
-      end
-
-      it "should not change the value and use a given Excel" do
-        new_excel = Excel.new(:reuse => false)
-        another_excel = Excel.new(:reuse => false)
-        Workbook.for_reading(@simple_file1, :if_closed => another_excel) do |book|
-          sheet = book.sheet(1)
-          cell = sheet[1,1]
-          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
-          book.excel.should == another_excel
-        end
-        Excel.kill_all
-        new_book = Workbook.open(@simple_file1)
-        sheet = new_book.sheet(1)
-        sheet[1,1].Value.should == @old_cell_value
-      end
-
-      it "should not change the value and use the new Excel instance" do
-        new_excel = Excel.new(:reuse => false)
-        Workbook.for_reading(@simple_file1, :if_closed => :new) do |book|
-          sheet = book.sheet(1)
-          cell = sheet[1,1]
-          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
-          book.excel.should_not == @book.excel
-          book.excel.should_not == new_excel
-          book.excel.properties[:visible].should be false
-          book.excel.properties[:displayalerts].should == :if_visible
-        end
-        Excel.kill_all
-        new_book = Workbook.open(@simple_file1)
-        sheet = new_book.sheet(1)
-        sheet[1,1].Value.should == @old_cell_value
-      end
-
-      it "should change the value" do
-        Workbook.for_modifying(@simple_file1) do |book|
-          sheet = book.sheet(1)
-          cell = sheet[1,1]
-          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
-          book.excel.should == @book.excel
-        end
-        new_book = Workbook.open(@simple_file, :visible => true)
-        sheet = new_book.sheet(1)
-        sheet[1,1].Value.should_not == @old_cell_value
-      end
-
-      it "should change the value and use a given Excel" do
-        new_excel = Excel.new(:reuse => false)
-        another_excel = Excel.new(:reuse => false)
-        Workbook.for_modifying(@simple_file1, :if_closed => another_excel) do |book|
-          sheet = book.sheet(1)
-          cell = sheet[1,1]
-          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
-          book.excel.should == another_excel
-        end
-        new_book = Workbook.open(@simple_file1, :visible => true)
-        sheet = new_book.sheet(1)
-        sheet[1,1].Value.should_not == @old_cell_value
-      end
-
-      it "should change the value and use the new Excel instance" do
-        new_excel = Excel.new(:reuse => false)
-        Workbook.for_modifying(@simple_file1, :if_closed => :new) do |book|
-          sheet = book.sheet(1)
-          cell = sheet[1,1]
-          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
-          book.excel.should_not == @book.excel
-          book.excel.should_not == new_excel
-          book.excel.properties[:visible].should be false
-          book.excel.properties[:displayalerts].should == :if_visible
-        end
-        new_book = Workbook.open(@simple_file1, :visible => true)
-        sheet = new_book.sheet(1)
-        sheet[1,1].Value.should_not == @old_cell_value
-      end
-    end
-  end
-  
 end