Благодаря за примера!
Аз тръгнах в друга посока,със SendKeys и позабатачих нещата.
Sub openKey()
Sheets("Sheet1").Select
SendKeys "1"
SendKeys "{ENTER}"
ActiveSheet.Unprotect
End Sub
След като заключа Листа...
Проблема беше,че след като се изпълни SendKeys и въведе автоматично паролата...
После я отпечатва и в Листа
,върху клетката която е маркирана.
Беше голям майтап.
Тоест,ако листа вече е отключен и пак се изпълни макроса,се отпечатва и паролата
А аз не исках това
Благодаря ти още веднъж.