Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запрет команды "Сохранить Как"
 
#1
24.03.2018 15:03:36
как внедрить код чтобы нельзя была создавать копию или сохранять в другом месте документ ?
а именно запретить пользоваться опцией сохранить как, и выскакивало сообщение
 
 
 
#2
24.03.2018 15:17:14
Как обычно, сейчас обреу себя на гнев ТС.
А смысл сего запрета в чем?
По вопросам из тем форума, личку не читаю.
 
 
 
#3
24.03.2018 15:18:03
Нашел код
Код
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
  If SaveAsUI = True Then
      lReply = MsgBox("К сожалению, вы не можете сохранить эту книгу под этим имеенм. " _
                     & "Сохранить под другим именем?.", vbQuestion + vbOKCancel)
     Cancel = (lReply = vbCancel)
   If Cancel = False Then Me.Save
     Cancel = True
  End If
End Sub
Но есть небольшая проблема , надо необходимо чтобы он сохранял файл при закрытии без запроса у пользователей
то есть автоматическое сохраненеи при закрытии
 
 
 
#4
24.03.2018 15:18:41
БМВ, чтобы дубликаты файлов не делали и не работали отдельно от оригинала
 
 
 
#5
24.03.2018 15:24:15
то есть пользователь настолько изыскан, чтоб уметь сохранить как и не уметь сделать копию проводником?
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Save
End Sub
По вопросам из тем форума, личку не читаю.
 
 
 
#6
24.03.2018 15:25:34
БМВ, а файлы храняться не в проводнике :-)

хотелось бы сохранить функционал верхнего макроса чтобы вылезало сообщение и говорила сообщение о том что есть запрет
Изменено: Homavi - 24.03.2018 15:27:59
 
 
 
#7
24.03.2018 15:28:14
 В проводнике файлы ваще не хранятся. Даже если на шарике или ююю , то всегда есть возможность сделать копию.
По вопросам из тем форума, личку не читаю.
 
 
 
#8
24.03.2018 15:33:01
БМВ, но для начало надо постараться скопировать
 
 
 
#9
24.03.2018 15:39:50
Цитата
Homavi написал:
хотелось бы сохранить функционал верхнего макроса
И что мешает? Оставляете тот и добавляете второй. Первый страбатывает при записи и если смена имени, то брыкаетяся и не дает. А второй сохраняет книгу при закрытии не зависимо, были изменения или нет.
Изменено: БМВ - 24.03.2018 15:40:23
По вопросам из тем форума, личку не читаю.
 
 
 
#10
24.03.2018 15:42:19

БМВ,

Код
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
  If SaveAsUI = True Then
      lReply = MsgBox("Çàïðåùåíî èñïîëüçîâàòü ìåíþ Ñîõðàíèòü êàê ", vbCritical + vbOKOnly)
    Cancel = (lReply = vbCancel)
   If vbOKOnly = True Then Me.Save
     Cancel = True
  End If
ActiveWorkbook.Save 
End Sub

У меня при закрытие книги спрашивает сохранять ее или нет ((

 
 
 
#11
24.03.2018 15:45:12
Где вторая часть, что я накидал выше?
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Save
End Sub
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
  If SaveAsUI = True Then
      lReply = MsgBox("К сожалению, вы не можете сохранить эту книгу под этим имеенм. " _
                     & "Сохранить под другим именем?.", vbQuestion + vbOKCancel)
     Cancel = True
  End If
End Sub
Изменено: БМВ - 24.03.2018 15:52:09
По вопросам из тем форума, личку не читаю.
 
 
 
#12
24.03.2018 15:50:03
БМВ, все спасибо работает )))))
 
 
 
#13
24.03.2018 18:59:48
Цитата
Homavi написал:
а файлы храняться не в проводнике
Чертовская наблюдательность! ))
 
 
 
#14
24.03.2018 19:30:16

Off

Юрий М,  в сверх проводнике :-)

По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх