Excelde İstediğimiz Sayfayı Okunmayacak Şekilde Gizleyip Şifrelemek

1 2 3
21/01/2020, 10:06

accessman

vb.net bilmiyorum
c ile genel olarak raporla ilgili fazla bilgim yok android ve javayla uğraşmaya başlayınca c# biraz unutuldu
21/01/2020, 10:32

feraz

Java ile nasıl raporluyorsunuz?
21/01/2020, 12:43

accessman

Sub Unhide_All_Sheets()
    Dim ws As Worksheet
    
    ActiveWorkbook.Unprotect
    For Each ws In Worksheets
        ws.Visible = xlSheetVisible
    Next
End Sub


şu kod ile sayfaları gizleyebiliyoruz ama 
Notice that we first unprotect the workbook, just in case it was password protected.
(Parola korumalı olması durumunda öncelikle çalışma kitabının korumasını kaldırdığımıza dikkat edin). demiş
şifreli halde gizleyemez miyiz
21/01/2020, 13:32

feraz

Sub hide_All_Sheets()
    Dim ws As Worksheet
    
    ActiveWorkbook.protect "12345"
    For Each ws In Worksheets
        ws.Visible = false
    Next
End Sub
21/01/2020, 13:39

feraz

Buda sayfaları şifreler

Sub hide_All_Sheets()
    Dim ws As Worksheet
    
   
    For Each ws In Worksheets
       Ws.protect  "12345"
      
    Next
End Sub
21/01/2020, 14:13

accessman

böyle olsa hem şifrelese hem gizlese

Sub hide_All_Sheets()
    Dim ws As Worksheet
   
    For Each ws In Worksheets
      Ws.protect  "12345"
      ws.Visible = false
    Next
End Sub
1 2 3