Cách không cho save as

3 Responses

1. hands says:

   31/05/2023 at 4:35 pm

   Chắc là thế này: Nếu tập tin đang là XLSX thì save thành XLSM -> Alt + F11 -> đúp chuột vào ThisWorkbook -> dán code

   Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       Cancel = True
   End Sub

   -> Save

   Tất nhiên phải khóa VBA lại. Tất nhiên khóa rồi nhưng nhiều người vẫn biết cách mở. Vân vân và vân vân.

   Dùng CustomUI viết 1 đoạn mã cho file, khóa chức năng save as lại là được.

   <customUI xmlns="https://schemas.microsoft.com/office/2006/01/customui"&gt;
   <!– Thêm the? mo´i va`o Ribbon –>
   <commands>
   <command idMso="FileSaveAs" enabled="false"/>
   <command idMso="TabShare" enabled="false"/>
   <command idMso="TabInfo" enabled="false"/>
   </commands>
   </customUI>

   F12 là được mà

   Reply
2. hands says:

   31/05/2023 at 4:36 pm

   F12 là được mà

   chạy lệnh Application.EnableEvents=False, sau đó thoải mái save as.

   Nói chung những kiểu này chỉ chống người không thạo VBA thôi. Vì nhiều người còn không biết là tồn tại cái gọi là EnableEvents, ScreenUpdating chứ chưa cần nói đến chuyện dùng chúng. Muốn chống "cao nhân", "pro" thì chỉ còn nước tự viết hoặc dùng phần mềm của bên thứ ba thôi.

   —————–

   Chắc là bác truongvu317 chỉ nói về trường hợp của bác batman1 đề xuất nên mới set về false được.

   Nếu chỉ có một trường hợp này thì có thể không cho set về False.

   Tạo Module với Code:

   Private Sub Auto_Open()
     Call OnEvents
   End Sub
   
   Sub OnEvents()
     Application.EnableEvents = True
     Application.OnTime VBA.Now + VBA.TimeSerial(0, 0, 1), "'" & ThisWorkbook.Name & "'!OnEvents"
   End Sub

   Nhưng vẫn còn quá nhiều cách để SaveAs, tuy nhiên đối với bạn này thì đã đủ rồi, khóa với những người "trong nhà" thôi.

   Nếu người "trong nhà" đã cho VBA hoạt động thì xem như người này không thể làm gì hơn rồi.

   Không hẳn như thế.

   Giả sử tập tin cấm Save As là hichic.xlsm

   Mở Excel -> tập tin mới -> thêm code

   Sub he()
       Application.EnableEvents = False
       Workbooks("hichic.xlsm").SaveAs "c:blala.xlsm"
       Application.EnableEvents = True
   End Sub

   -> Developer -> Macro Security -> Disable all macros without notification -> OK -> mở hichic.xlsm -> chạy Sub he -> sẽ có c:blala.xlsm
   ————
   Thực ra cái code của tôi nó cấm cả Save chứ không chỉ Save As 😀

   Reply
3. hands says:

   31/05/2023 at 4:37 pm

   Nói chung những kiểu này chỉ chống người không thạo VBA thôi. Vì nhiều người còn không biết là tồn tại cái gọi là EnableEvents, ScreenUpdating chứ chưa cần nói đến chuyện dùng chúng. Muốn chống "cao nhân", "pro" thì chỉ còn nước tự viết hoặc dùng phần mềm của bên thứ ba thôi.

   Không hẳn như thế.

   Giả sử tập tin cấm Save As là hichic.xlsm

   Mở Excel -> tập tin mới -> thêm code

   Sub he()
       Application.EnableEvents = False
       Workbooks("hichic.xlsm").SaveAs "c:blala.xlsm"
       Application.EnableEvents = True
   End Sub

   -> Developer -> Macro Security -> Disable all macros without notification -> OK -> mở hichic.xlsm -> chạy Sub he -> sẽ có c:blala.xlsm
   ————
   Thực ra cái code của tôi nó cấm cả Save chứ không chỉ Save As 😀

   Nhưng vẫn còn quá nhiều cách để SaveAs, tuy nhiên đối với bạn này thì đã đủ rồi, khóa với những người "trong nhà" thôi.

   Thực ra cái code của tôi nó cấm cả Save chứ không chỉ Save As

   Vụ này có vẻ đa dáng quá, chắc dọn nhà sang dùng lockxls cho nhàn.

   Hình như lockxls chỉ khoá save còn save as vẫn được hiiii

   Mình chạy thử xong vẫn Save as bình thường. Xin bạn chỉ lại giúp

   Reply