Здравствуйте, помогите пожалуйста У меня стоит код на странице:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("D4:D343")) Is Nothing Then Exit Sub If [A500] = "$$$$$" Then Exit Sub Range("H4").Select End Sub
[/vba]
Мне нужно чтоб, при сохранении документа , в ячейке "A500" не cохранялся пароль $$$$$ [moder]Код надо оформлять тегами (кнопка #). На первый раз исправила[/moder]
Здравствуйте, помогите пожалуйста У меня стоит код на странице:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("D4:D343")) Is Nothing Then Exit Sub If [A500] = "$$$$$" Then Exit Sub Range("H4").Select End Sub
[/vba]
Мне нужно чтоб, при сохранении документа , в ячейке "A500" не cохранялся пароль $$$$$ [moder]Код надо оформлять тегами (кнопка #). На первый раз исправила[/moder]Killerlord
Сообщение отредактировал Killerlord - Среда, 03.02.2016, 20:33
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("D4:D343")) Is Nothing Then Exit Sub If [A500] = "$$$$$" Then Exit Sub Range("H4").Select End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(Лист1).Range("A500").ClearContents End Sub
[/vba] Вставил этот код, но все так же. Ввожу в ячейку "A500" пароль. Когда сохраняю, выхожу с документа и заного захожу в ячейке остается пароль
buchlotnik, [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("D4:D343")) Is Nothing Then Exit Sub If [A500] = "$$$$$" Then Exit Sub Range("H4").Select End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(Лист1).Range("A500").ClearContents End Sub
[/vba] Вставил этот код, но все так же. Ввожу в ячейку "A500" пароль. Когда сохраняю, выхожу с документа и заного захожу в ячейке остается парольKillerlord
Workbook_BeforeSave - код надо писать не в модуль листа, а в модуль книги! Потому в правилах форума и написано - прикладывайте файл-пример - кучу вопросов снимает сразу
Workbook_BeforeSave - код надо писать не в модуль листа, а в модуль книги! Потому в правилах форума и написано - прикладывайте файл-пример - кучу вопросов снимает сразуbuchlotnik