Goedemiddag allen,
Ik heb een Excelbestand gemaakt waarin men diverse informatie kan ophalen wanneer de gebruiker zijn code met een pincode opgeeft. Op dit beveiligde tabblad zijn slechts 2 cellen aan te passen en rest is afgeschermd.
Alle informatie die met die combinatie op te halen is, staan op verschillende tabbladen die ik de eigenschap xlSheetVeryHidden heb meegegeven. Voor de goede orde even mijn simpele code die ik hier heb gebruikt:
Nu dacht ik dat ik hiermee wel alle informatie goed had afgeschermd, echter nu blijkt dat wanneer ik het excelbestand in Word open, ik alle vertrouwelijke informatie gewoon kan zien. Oftewel alle tabbladen worden weergegeven met alle informatie!
Is dit probleem te verhelpen zodat de vertrouwelijke informatie niet zichtbaar gemaakt kan worden, ook niet als men het Exce bestand in Word opend? En is hiervoor VBA code nodig of is de oplossing wellicht simpeler dan ik denk?
Alvast bedankt voor de reactie(s).
Met vriendelijke groet,
Dennis
Ik heb een Excelbestand gemaakt waarin men diverse informatie kan ophalen wanneer de gebruiker zijn code met een pincode opgeeft. Op dit beveiligde tabblad zijn slechts 2 cellen aan te passen en rest is afgeschermd.
Alle informatie die met die combinatie op te halen is, staan op verschillende tabbladen die ik de eigenschap xlSheetVeryHidden heb meegegeven. Voor de goede orde even mijn simpele code die ik hier heb gebruikt:
Code:
Sub Hide()
Dim a As Worksheet
Const b As String = "wachtwoordprint"
On Error Resume Next
For Each a In ActiveWorkbook.Sheets
If Not a.Name = b Then
a.Visible = xlSheetVeryHidden
Else
a.Visible = xlSheetVisible
End If
Next
End Sub
Nu dacht ik dat ik hiermee wel alle informatie goed had afgeschermd, echter nu blijkt dat wanneer ik het excelbestand in Word open, ik alle vertrouwelijke informatie gewoon kan zien. Oftewel alle tabbladen worden weergegeven met alle informatie!
Is dit probleem te verhelpen zodat de vertrouwelijke informatie niet zichtbaar gemaakt kan worden, ook niet als men het Exce bestand in Word opend? En is hiervoor VBA code nodig of is de oplossing wellicht simpeler dan ik denk?
Alvast bedankt voor de reactie(s).
Met vriendelijke groet,
Dennis