Отворите датотеку заштићену лозинком путем ВБА

Anonim

Како заобићи упит са лозинком помоћу ВБА

Приликом отварања радне свеске заштићене лозинком, Екцел тражи ову лозинку. Ово је наравно такође пожељно, следећа слика приказује како изгледа прозор за унос лозинке:

Када отворите радну свеску са макроом, унос лозинке је наравно врло досадан. Међутим, можете заобићи упит за лозинку помоћу макроа. Користите следећи програмски код:

Суб ОпенПассвордФиле ()
Дим Маппе као радна свеска
Подесите Маппе = Апплицатион.Воркбоокс.Опен (Назив датотеке: = "Ц: \ Датотеке \ Заштитна датотека.клс", Лозинка: = "Лозинка")
Енд Суб

Наравно, ово функционише само ако знате лозинку. Да бисте то урадили, замените текст „Лозинка“ лозинком коју сте навели. Коришћењем променљивих објекта Фолдер можете користити ову променљиву за лак приступ радним листовима тренутно отворене радне свеске након отварања радне свеске.