Çalışma Kitabı şifresini çözen ilginç kod

[N.Ziya Hiçdurmaz]

Sub test()
Range("a1").Value(11) = Range("a2").Value(11)
End Sub

Merhaba arkadaşlar; Normalde bu kod hücre aralıklarından biçimleriyle beraber veri almakta fakat office 365 sürümünde kitap şifresinide çözmekte diğer office sürümlerinde denemedim.

 

[dEdE]

Office 2013 'de de çözüyor.

 

[Korhan Ayhan]

Merhaba,

Bu durumu nasıl keşfettiniz?

Value(11) parametresiyle aşağıdaki blok oluşuyor.

Ofis 2016 sürümünde denedim.. Evet "Kitabı Koru" menüsüyle koyulan şifreyi pasif hale getiriyor. (Dosya açılış şifresi değil)

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <Styles>
  <Style ss:ID="Default" ss:Name="Normal">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font ss:FontName="Calibri" x:CharSet="162" x:Family="Swiss" ss:Size="11"
    ss:Color="#000000"/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
  <Style ss:ID="s16">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font ss:FontName="Calibri" x:CharSet="162" x:Family="Swiss" ss:Size="11"
    ss:Color="#000000"/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
 </Styles>
 <Worksheet ss:Name="Sheet1">
  <Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="1"
   ss:DefaultRowHeight="15">
   <Row>
    <Cell ss:StyleID="s16"/>
   </Row>
  </Table>
 </Worksheet>
</Workbook>

 

[N.Ziya Hiçdurmaz]

Merhaba Korhan bey; Bir kaç çalışmamda kopyalama işlemi yerine kullandım. bu çalışmalarda ayrıca kitap koruması'da vardı korumanın kalktığını ve bu olayın bu kod ile oluştuğunu farketim

 

[Korhan Ayhan]

İlginç gerçekten...

Burada konuyla ilgili bazı bilgiler var.

XlRangeValueDataType enumeration (Excel)

Excel VBA reference

learn.microsoft.com