Beste specialisten.
Ik heb 2 macro's om het bestand van de beveiligen en op te heffen.
Bij het opheffen van de beveiliging is het wachtwoord zichtbaar.
Bestaat er de mogelijkheid macro 2 het wachtwoord wordt weergegeven met b.v. sterretjes.
Alvast bedankt
Ik heb 2 macro's om het bestand van de beveiligen en op te heffen.
Bij het opheffen van de beveiliging is het wachtwoord zichtbaar.
Bestaat er de mogelijkheid macro 2 het wachtwoord wordt weergegeven met b.v. sterretjes.
Alvast bedankt
Code:
Sub Macro1()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "1234"
Next
End Sub
Sub Macro2()
Dim ww As String
Dim i As Integer
ww = InputBox("Geef uw Wachtwoord")
For i = 1 To Worksheets.Count
Sheets(i).Unprotect ww
Next
End Sub