ich habe folgendes Makro, mit Unterstützung des Forums, zusammengebastelt.
Sub PKL_VK_ändern()
Application.ScreenUpdating = False
Dim pwCheck As String
Do
pwCheck = InputBox("Passwort eingeben", "Änderung")
If pwCheck = "wwpa" Then Exit Do
MsgBox " Falsches Kennwort !" & Chr(13) & Chr(13) & _
" Nur der Administrator ist berechtigt !" _
, vbInformation, "Hinweis !"
If pwCheck = "" Then
Sheets("Prov-Blatt").Select
Range("A1").Select
Exit Sub
End If
Loop
Sheets("Prov-Blatt").Unprotect Password:="wwpa"
Application.Run "'1-NW-PLK-VB.xls'!PKL_Fixierung_raus"
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollColumn = 17 'Spalte Q
Range("S78").Select
Application.ScreenUpdating = False
End Sub
Es funktioniert Prima, ich möchte jedoch bei der Eingabe in der MSGBOXdas bei der Eingabe das Wort nicht zu sehen ist, nur Sterne.
Vielleicht hat jemand eine Idee ?
Gruß Walter