Excel alle tabladen beveilingen en opheffen

[ikkuh007]

Hallo allemaal,

Ik heb een excel bestand, met meerdere tabbladen, die beveiligd moeten worden. Nu kan dit met de hand, maar een stuk of 20/25 met de hand beveiligen is niet fijn. Ik heb gelezen op internet dat dit met macro's kan.
Heeft er iemand een macro dat wanneer je excel afsluit, of via een andere manier, dat alle tabbladen in 1X beveiligd zijn.
Wanneer je excel opstart via 1 manier op alle tabbladen het wachtwoord er af kan halen. Het wachtwoord moet dan wel eerst ingevoerd worden...
Het automatisch beveiligen werkt ondertussen al.

Wie o wie kan me helpen?

Bvd!

groet,
Roel

 

[ExcelAmateur]

ikkuh007,

Gebruik ook eens de zoekmachine van "Helpmij", staat rechts boven.

Kijk of je deze code kunt gebruiken.

 

[ikkuh007]

Het is uiteindelijk opgelost hiermee

Private Sub CommandButton1_Click()
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

Private Sub CommandButton2_Click()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "planning"
Next
End Sub

Dank voor je hulp iig!