robust_excel_ole 1.13 → 1.18

data/spec/workbook_specs/workbook_unobtr_spec.rb

@@ -35,8 +35,239 @@ describe Workbook do
     rm_tmp(@dir)
   end
 
+  describe "Workbook#for_reading, #for_modifying" do
+    
+    context "with standard" do
+
+      before do
+        @book = Workbook.open(@simple_file1)
+        @old_value = @book.sheet(1)[1,1].Value
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget) if @book && @book.alive?
+      end
+
+      it "should not change the value" do
+        @book.for_reading do |book|
+          book.should be_a Workbook
+          book.should be_alive
+          book.Saved.should be true  
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          book.Saved.should be false
+        end
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should == @old_value
+      end
+
+      it "should change the value" do
+        @book.for_modifying do |book|
+          book.should be_a Workbook
+          book.should be_alive
+          book.Saved.should be true  
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          book.Saved.should be false
+        end
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should_not == @old_value
+      end
+
+      it "should not change the value and make visible" do
+        @book.for_reading(:visible => true) do |book|
+          book.should be_a Workbook
+          book.should be_alive
+          book.visible.should be true
+          book.Saved.should be true  
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          book.Saved.should be false
+        end
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should == @old_value
+      end
+
+      it "should change the value and make visible" do
+        @book.for_modifying(:visible => true) do |book|
+          book.should be_a Workbook
+          book.should be_alive
+          book.visible.should be true
+          book.Saved.should be true  
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          book.Saved.should be false
+        end
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should_not == @old_value
+      end
+
+    end
+ 
+  end
+
+  describe "Workbook#unobtrusively" do
+
+    context "with a writable saved workbook" do
+
+      before do
+        @book = Workbook.open(@simple_file1, :visible => true)
+        @old_value = @book.sheet(1)[1,1].Value
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget) if @book && @book.alive?
+      end
+
+      it "should unobtrusively open, modify, and retain the status" do
+        @book.unobtrusively do |book|
+          book.saved.should be true
+          book.visible.should be true
+          book.writable.should be true
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+        end
+        @book.saved.should be true
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].Value.should_not == @old_value
+        @book.close
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should_not == @old_value
+      end
+
+      it "should unobtrusively open, modify, and not save the changes" do
+        @book.unobtrusively(:writable => false) do |book|
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+        end
+        @book.saved.should be true
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].Value.should_not == @old_value
+        @book.close
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should == @old_value
+      end
+
+      it "should unobtrusively open, modify, and save the changes" do
+        @book.unobtrusively(:writable => true) do |book|
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+        end
+        @book.saved.should be true
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].Value.should_not == @old_value
+        @book.close
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should_not == @old_value
+      end
+
+    end
+
+    context "with an writable unsaved workbook" do
+
+      before do
+        @book = Workbook.open(@simple_file1, :visible => true)
+        @old_value = @book.sheet(1)[1,1].Value
+        sheet = @book.sheet(1)
+        sheet[1,1] = sheet[1,1].Value == "foo" ? "bar" : "foo"
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget) if @book && @book.alive?
+      end
+
+      it "should unobtrusively open, modify, and retain the status" do
+        @book.unobtrusively do |book|
+          book.saved.should be false
+          book.visible.should be true
+          book.writable.should be true
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+        end
+        @book.saved.should be false
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].Value.should == @old_value
+        @book.close(:if_unsaved => :forget)
+        @book = Workbook.open(@simple_file1)
+        @book.sheet(1)[1,1].Value.should == @old_value
+      end
+
+      it "should unobtrusively open, modify, and not save the changes" do
+        @book.unobtrusively(:writable => false) do |book|
+          book.sheet(1)[1,1] = "bla"
+        end
+        @book.saved.should be false
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].Value.should == "bla"
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should == @old_value
+      end
+
+      it "should unobtrusively open, modify, and save the changes" do
+        @book.unobtrusively(:writable => true) do |book|
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+        end
+        @book.saved.should be false
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].Value.should == @old_value
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should == @old_value
+      end
+
+    end
+
+    context "with a closed workbook" do
+
+      before do
+        @book = Workbook.open(@simple_file1, :visible => true)
+        @old_value = @book.sheet(1)[1,1].Value
+        @book.close
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget) if @book && @book.alive?
+      end
+
+      it "should unobtrusively open and close the workbook" do
+        @book.unobtrusively do |book|
+          book.should be_alive
+          book.saved.should be true
+          book.visible.should be true
+          book.writable.should be true
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+        end
+        @book.should_not be_alive
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should_not == @old_value
+      end
+
+      it "should unobtrusively open and and not close the workbook" do
+        @book.unobtrusively(:visible => true, :keep_open => true) do |book|
+          book.should be_alive
+          book.saved.should be true
+          book.visible.should be true
+          book.writable.should be true
+          book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+        end
+        @book.should be_alive
+        @book.saved.should be true
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].Value.should_not == @old_value
+        @book.close
+        new_book = Workbook.open(@simple_file1)
+        new_book.sheet(1)[1,1].Value.should_not == @old_value
+      end
+
+    end
+
+  end
   
-  describe "unobtrusively" do
+  describe "Workbook.unobtrusively" do
 
     # @private
     def unobtrusively_ok?
@@ -80,6 +311,427 @@ describe Workbook do
 
     end
 
+    describe "unknown workbooks" do
+
+      context "with one invisible saved writable workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(@abs_filename)
+          @old_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+        end
+
+        it "should connect" do
+          Workbook.unobtrusively(@simple_file1) do |book|
+            book.excel.Workbooks.Count.should == 1
+            Excel.excels_number.should == 1
+            book.FullName.should == General.absolute_path(@simple_file1)
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set visible => true and remain invisiblity" do
+          Workbook.unobtrusively(@simple_file1, :visible => true) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.Windows(ole_wb.Name).Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set read_only => true and remain writability" do
+          Workbook.unobtrusively(@simple_file1, :read_only => true) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.ReadOnly.should be true
+            book.writable.should be false            
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set visible => true, read_only => true" do
+          Workbook.unobtrusively(@simple_file1, :visible => true, :read_only => true) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.ReadOnly.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.Windows(ole_wb.Name).Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should modify and remain saved-status" do
+          Workbook.unobtrusively(@simple_file1) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.Saved.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+          book2.sheet(1)[1,1].Value.should == @new_value
+        end
+
+        it "should modify and remain saved-status and not save the new value when writable => false" do
+          Workbook.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.Saved.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+      end
+
+      context "with one visible saved writable workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(@abs_filename)
+          @ole_e1.Visible = true
+          @ole_wb.Windows(@ole_wb.Name).Visible = true
+        end
+
+        it "should remain visibility" do
+          Workbook.unobtrusively(@simple_file1) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set visible => false and remain visibility" do
+          Workbook.unobtrusively(@simple_file1, :visible => false) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+      end
+
+      context "with one unsaved writable workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(@abs_filename)
+          @ole_e1.Visible = true
+          @ole_wb.Windows(@ole_wb.Name).Visible = true
+          @old_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+          @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value = @old_value = "foo" #== "foo" ? "bar" : "foo"
+          @new_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+          @ole_wb.Saved.should be false
+        end
+
+        it "should connect and remain unsaved" do
+          Workbook.unobtrusively(@simple_file1) do |book|
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should raise error" do
+          expect{
+            Workbook.unobtrusively(@simple_file1, :read_only => true) do |book|
+              book.saved.should be false
+              book.visible.should be true
+              book.writable.should be false
+            end
+          }.to raise_error(WorkbookNotSaved)
+        end
+
+        it "should remain writable" do
+          Workbook.unobtrusively(@simple_file1, :read_only => true, :if_unsaved => :save) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should remain unsaved when modifying" do
+          Workbook.unobtrusively(@simple_file1) do |book|
+            book.sheet(1)[1,1] = "bar" #book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+          Excel.kill_all
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+          book2.sheet(1)[1,1].Value.should == @new_value
+        end
+
+        it "should not write with :writable => false" do
+          @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value = @old_value = "foo" 
+          @ole_wb.Save
+          @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value = @old_value = "foo" 
+          Workbook.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.sheet(1)[1,1] = "bar" #book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+          Excel.kill_all
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+      end
+
+      context "with one read-only workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(@abs_filename, RobustExcelOle::XlUpdateLinksNever, true)
+          @old_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+          @ole_e1.Visible = true
+          @ole_wb.Windows(@ole_wb.Name).Visible = true
+          @ole_wb.ReadOnly.should be true
+        end
+
+        it "should connect and remain read-only" do
+          Workbook.unobtrusively(@simple_file1) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+        end
+
+        it "should remain read-only" do
+          Workbook.unobtrusively(@simple_file1, :read_only => false) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+        end
+
+        it "should remain read-only when modifying" do
+          Workbook.unobtrusively(@simple_file1) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+        it "should remain read-only when modifying" do
+          Workbook.unobtrusively(@simple_file1, :read_only => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+          book2.sheet(1)[1,1].Value.should == @new_value
+        end
+
+        it "should remain read-only when modifying" do
+          Workbook.unobtrusively(@simple_file1, :read_only => false, :writable => true) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+          book2.sheet(1)[1,1].Value.should == @new_value
+        end
+
+        it "should remain read-only when modifying and not save changes, when :writable => false" do
+          Workbook.unobtrusively(@simple_file1, :writable => false, :read_only => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+        it "should remain read-only when modifying and not save changes, when :writable => false" do
+          Workbook.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+
+        it "should remain read-only when modifying and not save changes, when :writable => false" do
+          Workbook.unobtrusively(@simple_file1, :writable => false, :read_only => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+        it "should remain read-only when modifying and not save changes, even if :writable => true" do
+          Workbook.unobtrusively(@simple_file1, :writable => true) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+        it "should remain read-only when modifying and not save changes, when :writable => false" do
+          Workbook.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          Excel.kill_all
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @new_value
+        end
+
+
+      end
+
+    end
+
     describe "excels number" do
 
       it "should open one excel instance and workbook should be closed" do
@@ -135,7 +787,7 @@ describe Workbook do
           end
           Excel.current.Workbooks.Count.should == 0
           b1 = Workbook.open(@simple_file1)
-          b1.sheet(1)[1,1].Value.should_not == @old_value
+          b1.sheet(1)[1,1].Value.should == @old_value
         end
 
         it "should open as read-write" do
@@ -166,8 +818,8 @@ describe Workbook do
           Workbook.unobtrusively(@simple_file, :read_only => true) 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
+            #book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            #book.Saved.should be false
           end
           Excel.current.Workbooks.Count.should == 0
           b1 = Workbook.open(@simple_file1)
@@ -188,7 +840,7 @@ describe Workbook do
 
         it "should open not writable" 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            
@@ -248,7 +900,7 @@ describe Workbook do
           end
           @book.close
           book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].Value.should_not == @old_value
+          book2.sheet(1)[1,1].Value.should == @old_value
         end
 
         it "should open as read-write" do
@@ -278,18 +930,20 @@ describe Workbook do
         end
 
         it "should force to read-only" do
-          Workbook.unobtrusively(@simple_file1, :read_only => true) do |book|            
-            book.ReadOnly.should be true
-            book.should == @book
-            book.filename.should == @book.filename
-            book.excel.should == @book.excel
-            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
-          end
-          @book.close
-          book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].Value.should == @old_value
+          expect{
+            Workbook.unobtrusively(@simple_file1, :if_unsaved => :forget, :read_only => true) do |book|            
+              book.ReadOnly.should be true
+              book.should == @book
+              book.filename.should == @book.filename
+              book.excel.should_not == @book.excel
+              book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+            end
+            }.to raise_error(WorkbookReadOnly)
         end
 
+
+
+
         it "should force to read-only" do
           Workbook.unobtrusively(@simple_file1, :read_only => true, :writable => false) do |book|            
             book.ReadOnly.should be true
@@ -330,6 +984,7 @@ describe Workbook do
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
             book.sheet(1)[1,1].Value.should_not == @old_value
           end
+          @book.ReadOnly.should be true
           @book.close
           Workbook.unobtrusively(@simple_file1, :writable => false) do |book|
             book.sheet(1)[1,1].Value.should == @old_value
@@ -347,6 +1002,7 @@ describe Workbook do
             book.excel.should == @book.excel
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           end
+          @book.ReadOnly.should be true
           @book.close
           book2 = Workbook.open(@simple_file1)
           book2.sheet(1)[1,1].Value.should == @old_value
@@ -354,23 +1010,23 @@ describe Workbook do
 
         it "should open as read-write" do
           Workbook.unobtrusively(@simple_file1, :read_only => false) do |book|
-            book.Readonly.should be true
+            book.Readonly.should be false
             book.should == @book
             book.filename.should == @book.filename
-            book.excel.should == @book.excel
+            book.excel.should_not == @book.excel
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           end
           @book.close
           book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].Value.should == @old_value
+          book2.sheet(1)[1,1].Value.should_not == @old_value
         end
 
         it "should open as read-write" do
           Workbook.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
-            book.Readonly.should be true
+            book.Readonly.should be false
             book.should == @book
             book.filename.should == @book.filename
-            book.excel.should == @book.excel
+            book.excel.should_not == @book.excel
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           end
           @book.close
@@ -378,9 +1034,9 @@ describe Workbook do
           book2.sheet(1)[1,1].Value.should == @old_value
         end
 
-        it "should force to read-write" do
+        it "should remain read-only even if writeble => true" do
           Workbook.unobtrusively(@simple_file1, :writable => true) do |book|
-            book.ReadOnly.should be false
+            book.ReadOnly.should be true
             book.should == @book
             book.filename.should == @book.filename
             book.excel.should == @book.excel
@@ -388,7 +1044,7 @@ describe Workbook do
           end
           @book.close
           book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].Value.should_not == @old_value
+          book2.sheet(1)[1,1].Value.should == @old_value
         end
 
         it "should force to read-write" do
@@ -404,6 +1060,7 @@ describe Workbook do
           book2.sheet(1)[1,1].Value.should_not == @old_value
         end
 
+=begin
         it "should force to read-write" do
           e1 = Excel.create
           Workbook.unobtrusively(@simple_file1, :writable => true, :rw_change_excel => e1) do |book|
@@ -441,6 +1098,7 @@ describe Workbook do
           book2 = Workbook.open(@simple_file1)
           book2.sheet(1)[1,1].Value.should_not == @old_value
         end
+=end
 
         it "should force to read-write" do
           Workbook.unobtrusively(@simple_file1, :writable => true, :read_only => false) do |book|
@@ -563,16 +1221,22 @@ describe Workbook do
           @book.sheet(1)[1,1].Value.should_not == @old_value
         end
 
-        it "should force to read-only (not implemented)" do
-          expect{
-            Workbook.unobtrusively(@simple_file1, :read_only => true) 
-          }.to raise_error(NotImplementedREOError)
+        it "should force to read-only" do
+          Workbook.unobtrusively(@simple_file1, :read_only => true, :if_unsaved => :save) do |book|
+            book.ReadOnly.should be true
+          end
+          @book.Saved.should be false
+          @book.ReadOnly.should be false
+          @book.sheet(1)[1,1].Value.should == @old_value
         end
 
-        it "should force to read-only (not implemented)" do
-          expect{
-            Workbook.unobtrusively(@simple_file1, :read_only => true, :writable => false) 
-          }.to raise_error(NotImplementedREOError)
+        it "should force to read-only with writable false" do
+          Workbook.unobtrusively(@simple_file1, :if_unsaved => :save, :read_only => true, :writable => false) do |book|
+            book.ReadOnly.should be true
+          end
+          @book.Saved.should be false
+          @book.ReadOnly.should be false
+          @book.sheet(1)[1,1].Value.should == @old_value
         end
 
         it "should open not writable" do
@@ -616,48 +1280,23 @@ describe Workbook do
         end
 
         it "should open as read-only" do
-          Workbook.unobtrusively(@simple_file1, :read_only => false) do |book|
-            book.Readonly.should be true
-            book.should == @book
-            book.filename.should == @book.filename
-            book.excel.should == @book.excel
-            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
-          end
-          @book.Saved.should be false
-          @book.ReadOnly.should be true
-          @book.sheet(1)[1,1].Value.should_not == @old_value
-          @book.close
-          book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].Value.should_not == @old_value
+          expect{
+            Workbook.unobtrusively(@simple_file1, :if_unsaved => :accept, :read_only => false, :writable => false)
+          }.to raise_error(OptionInvalid)
         end
 
-        it "should open as read-only" do
-          Workbook.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
+        it "should remain read-only and not write, even with :writable => true" do
+          Workbook.unobtrusively(@simple_file1, :writable => true) do |book|
             book.Readonly.should be true
-            book.should == @book
-            book.filename.should == @book.filename
-            book.excel.should == @book.excel
+            book.Saved.should be false
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           end
-          @book.Saved.should be false
           @book.ReadOnly.should be true
           @book.sheet(1)[1,1].Value.should_not == @old_value
           @book.close
           book2 = Workbook.open(@simple_file1)
           book2.sheet(1)[1,1].Value.should_not == @old_value
         end
-    
-        it "should raise an error" do
-          expect{
-            Workbook.unobtrusively(@simple_file1, :writable => true)
-            }.to raise_error(NotImplementedREOError, "unsaved read-only workbook shall be written")
-        end
-
-        it "should raise an error" do
-           expect{
-            Workbook.unobtrusively(@simple_file1, :writable => true)
-            }.to raise_error(NotImplementedREOError, "unsaved read-only workbook shall be written")
-        end
 
         it "should force to read-only" do
           Workbook.unobtrusively(@simple_file1, :read_only => true) do |book|            
@@ -758,22 +1397,20 @@ describe Workbook do
           book = Workbook.open(@simple_file1)
           book.sheet(1)[1,1].Value.should == @old_value 
         end
-
+=begin  
         it "should write in the outer and not in the inner block" do
-          expect{
-          Workbook.unobtrusively(@simple_file1) do |book|
+          Workbook.unobtrusively(@simple_file1, :if_unsaved => :forget) do |book|
             @old_value = book.sheet(1)[1,1].Value
             book.ReadOnly.should be false
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
             book.Saved.should be false
             book.sheet(1)[1,1].Value.should_not == @old_value
-            Workbook.unobtrusively(@simple_file1, :read_only => true) do |book2|
+            Workbook.unobtrusively(@simple_file1, :if_unsaved => :forget, :read_only => true) do |book2|
               book2.should == book
               book2.ReadOnly.should be true
-              #book2.Saved.should be false
-              book2.sheet(1)[1,1].Value.should_not == @old_value
+              book2.Saved.should be true
               book2.sheet(1)[1,1] = book2.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
-              book2.sheet(1)[1,1].Value.should == @old_value
+              #book2.sheet(1)[1,1].Value.should_not == @old_value
             end
             book.should be_alive
             book.Saved.should be false
@@ -781,9 +1418,8 @@ describe Workbook do
           end
           book = Workbook.open(@simple_file1)
           book.sheet(1)[1,1].Value.should_not == @old_value
-          }.to raise_error(NotImplementedREOError)
         end
-
+=end        
         it "should write in the outer and not in the inner block" do
           Workbook.unobtrusively(@simple_file1) do |book|
             @old_value = book.sheet(1)[1,1].Value
@@ -806,15 +1442,15 @@ describe Workbook do
           book = Workbook.open(@simple_file1)
           book.sheet(1)[1,1].Value.should == @old_value
         end
-
+=begin
         it "should be read-only in the outer and write in the inner block" do
-          Workbook.unobtrusively(@simple_file1, :read_only => true) do |book|
+          Workbook.unobtrusively(@simple_file1, :read_only => true, :if_unsaved => :save) do |book|
             @old_value = book.sheet(1)[1,1].Value
             book.ReadOnly.should be true
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
             book.Saved.should be false
             book.sheet(1)[1,1].Value.should_not == @old_value
-            Workbook.unobtrusively(@simple_file1) do |book2|
+            Workbook.unobtrusively(@simple_file1, :if_unsaved => :save) do |book2|
               book2.should == book
               book2.ReadOnly.should be true
               book2.Saved.should be false
@@ -830,7 +1466,7 @@ describe Workbook do
           book = Workbook.open(@simple_file1)
           book.sheet(1)[1,1].Value.should == @old_value
         end
-
+=end
       end
 
     end
@@ -890,7 +1526,7 @@ describe Workbook do
           book1 = Workbook.open(@simple_file1, :read_only => true)
           old_value = book1.sheet(1)[1,1].Value
           Workbook.unobtrusively(@simple_file1, :writable => true) do |book|
-            book.ReadOnly.should be false
+            book.ReadOnly.should be true
             sheet = book.sheet(1)
             sheet[1,1] = sheet[1,1].Value == "foo" ? "bar" : "foo"
             book.excel.should == book1.excel
@@ -898,7 +1534,7 @@ describe Workbook do
           book1.ReadOnly.should be true
           book1.close
           book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].Value.should_not == old_value
+          book2.sheet(1)[1,1].Value.should == old_value
         end
 
       end
@@ -926,6 +1562,7 @@ describe Workbook do
 
         it "should remain check-compatibility false" do
           book1 = Workbook.open(@simple_file1, :check_compatibility => false)
+          book1.CheckCompatibility.should be false
           Workbook.unobtrusively(@simple_file1) do |book|
           end
           book1.CheckCompatibility.should be false
@@ -933,6 +1570,7 @@ describe Workbook do
 
         it "should remain check-compatibility true" do
           book1 = Workbook.open(@simple_file1, :check_compatibility => true)
+          book1.CheckCompatibility.should be true
           Workbook.unobtrusively(@simple_file1) do |book|
           end
           book1.CheckCompatibility.should be true
@@ -944,10 +1582,10 @@ describe Workbook do
 
         it "should remain the calculation mode" do
           book1 = Workbook.open(@simple_file1)
-          old_calculation = book1.excel.calculation
+          old_calculation = book1.excel.properties[:calculation]
           Workbook.unobtrusively(@simple_file1) do |book|
           end
-          book1.excel.calculation.should == old_calculation
+          book1.excel.properties[:calculation].should == old_calculation
         end
       
         it "should remain calculation manual" do
@@ -974,7 +1612,7 @@ describe Workbook do
         Workbook.unobtrusively(@simple_file) do |book|
           book.should be_a Workbook
           book.excel.Visible.should be false
-          book.CheckCompatibility.should be false
+          book.CheckCompatibility.should be true
           book.ReadOnly.should be false
         end
       end
@@ -1039,7 +1677,7 @@ describe Workbook do
         expect{
           Workbook.unobtrusively(@simple_file, :if_closed => :invalid_option) do |book|
           end
-        }.to raise_error(TypeREOError, "given object is neither an Excel, a Workbook, nor a Win32ole")
+        }.to raise_error(TypeREOError, "provided Excel option value is neither an Excel object nor a valid option")
       end
 
     end
@@ -1314,16 +1952,16 @@ describe Workbook do
         Workbook.unobtrusively(@simple_file1, :if_closed => :new) do |book|
           book.excel.should_not == @book.excel
           book.excel.should_not == new_excel
-          book.excel.visible.should be false
-          book.excel.displayalerts.should == :if_visible
+          book.excel.properties[:visible].should be false
+          book.excel.properties[:displayalerts].should == :if_visible
           @another_excel = book.excel
         end
         Workbook.unobtrusively(@simple_file1, :if_closed => :current) do |book|
           book.excel.should_not == @book.excel
           book.excel.should_not == new_excel
           book.excel.should == @another_excel
-          book.excel.visible.should be false
-          book.excel.displayalerts.should == :if_visible
+          book.excel.properties[:visible].should be false
+          book.excel.properties[:displayalerts].should == :if_visible
         end
       end
 
@@ -1419,6 +2057,7 @@ describe Workbook do
         book3.close
       end
 
+=begin
       it "should open unobtrusively the book in a new Excel to open the book writable" do
         excel1 = Excel.new(:reuse => false)
         excel2 = Excel.new(:reuse => false)
@@ -1475,6 +2114,7 @@ describe Workbook do
         new_sheet[1,1].Value.should_not == cell_value
         book3.close
       end
+=end
 
       it "should open unobtrusively the book in the Excel where it was opened most recently" do
         book2 = Workbook.open(@simple_file1, :force_excel => :new, :read_only => true)
@@ -1672,6 +2312,30 @@ describe Workbook do
     end
   end
 
+  describe "type-lifting" do
+
+    context "with standard" do
+
+      before do
+        @book = Workbook.open(@simple_file1)
+        @ole_workbook = @book.ole_workbook 
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should type-lift" do
+        Workbook.unobtrusively(@ole_workbook) do |book|
+          book.should === @book
+          book.equal?(@book).should be true
+        end
+      end
+    
+    end
+
+  end
+
   describe "for_reading, for_modifying" do
 
     context "open unobtrusively for reading and modifying" do
@@ -1694,7 +2358,8 @@ describe Workbook do
           book.Saved.should be false
           book.excel.should == @book.excel
         end
-        new_book = Workbook.open(@simple_file1, :visible => true)
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
         sheet = new_book.sheet(1)
         sheet[1,1].Value.should == @old_cell_value
       end
@@ -1708,7 +2373,8 @@ describe Workbook do
           sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
           book.excel.should == another_excel
         end
-        new_book = Workbook.open(@simple_file1, :visible => true)
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
         sheet = new_book.sheet(1)
         sheet[1,1].Value.should == @old_cell_value
       end
@@ -1721,10 +2387,11 @@ describe Workbook do
           sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
           book.excel.should_not == @book.excel
           book.excel.should_not == new_excel
-          book.excel.visible.should be false
-          book.excel.displayalerts.should == :if_visible
+          book.excel.properties[:visible].should be false
+          book.excel.properties[:displayalerts].should == :if_visible
         end
-        new_book = Workbook.open(@simple_file1, :visible => true)
+        Excel.kill_all
+        new_book = Workbook.open(@simple_file1)
         sheet = new_book.sheet(1)
         sheet[1,1].Value.should == @old_cell_value
       end
@@ -1763,8 +2430,8 @@ describe Workbook do
           sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
           book.excel.should_not == @book.excel
           book.excel.should_not == new_excel
-          book.excel.visible.should be false
-          book.excel.displayalerts.should == :if_visible
+          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)