Ich möchte bei meinem Makro "Unprotect" das einzugebenede Passwort mit Sternchen darstellen - dazu habe ich mir das Beispiel von Hajo runtergeladen:
https://www.herber.de/bbs/user/112444.xlsm
Wie kann ich das in mein bestehendes Makro integrieren?
Anbei noch mein Coding:
Sub Unprotect()
Dim objWorksheet As Worksheet
Dim strPassword As String
strPassword = InputBox("Enter password:", "Password")
Application.ScreenUpdating = False
If StrPtr(strPassword) = 0 Then Exit Sub
On Error GoTo Abbruch:
For Each objWorksheet In ThisWorkbook.Worksheets
With objWorksheet
.Unprotect Password:=strPassword
.Protect Password:=strPassword, userInterfaceOnly:=False
.Unprotect Password:=strPassword
End With
Next objWorksheet
ThisWorkbook.Unprotect Password:=strPassword
Exit Sub
Abbruch:
MsgBox "Wrong Password", vbExclamation, "Message"
Application.ScreenUpdating = True
End Sub
Bitte um Hilfe - Danke!Lg,
Chrisi