Thread: Coding deletion
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Hamed parhizkar Hamed parhizkar is offline
external usenet poster
 
Posts: 45
Default Coding deletion

Currently I have a vba code that will eliminate the page after it has been
opened a number of times. For instacne if the code is set to 3, after the 3rd
time the sheet is opened it will lock the user out permanently. However, if
they should to select disable macros, they can access the sheet. How can you
lock them out permanently. below is the code I am using.

Private Sub Workbook_Open()
Dim OpenCount As Integer
OpenCount = GetSetting("MyApp", "Count", "OpenCount", 0)

SaveSetting "MyApp", "Count", "OpenCount", OpenCount + 1

If OpenCount = 3 Then ThisWorkbook.Close SaveChanges:=False

End Sub