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

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
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

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Office 2013 'de de çözüyor.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,367
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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)

C++:
<?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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
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 :)
 
Üst