merge two marco's into one. Please help.

Firecop1348 · Oct 28, 2009

I have a timer macro, I need to add my protect workbook macro but can not get it to work. here is both of the codes.

Sub Protect()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Protect Password:="456"

Next ws
ActiveWorkbook.Save

Windows.Application.Quit 'closes wkbk & excel
End Sub

[FONT=&quot]standard module of the VBA project, paste the following code:[/FONT][FONT=&quot]<o

></o

>[/FONT]
[FONT=&quot]Public RunWhen As Double
Public Const NUM_MINUTES = 10

Public Sub SaveAndClose()
ThisWorkbook.Close savechanges:=True
End Sub[/FONT][FONT=&quot]

[/FONT]<link rel="File-List" href="file:///C:%5CUsers%5CShawn%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml"><link rel="themeData" href="file:///C:%5CUsers%5CShawn%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx"><link rel="colorSchemeMapping" href="file:///C:%5CUsers%5CShawn%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml"><style>  </style>[FONT=&quot]In the ThisWorkbook module

[/FONT][FONT=&quot]Private Sub Workbook_Open()
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub[/FONT][FONT=&quot]

[/FONT][FONT=&quot]Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)

On Error Resume Next
Application.OnTime RunWhen, "SaveAndClose", , False
On Error GoTo 0
RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
Application.OnTime RunWhen, "SaveAndClose", , True

End Sub[/FONT][FONT=&quot]

[/FONT]the timer works great, But I need it to protect the workbook with my protect macro before saving and closing.
Thanks

Firecop1348 · Oct 28, 2009

never mind worked for ever and got it myself. Thanks.

merge two marco's into one. Please help.

Firecop1348

Board Regular

Excel Facts

Firecop1348

Board Regular

Similar threads

Forum statistics

Share this page

merge two marco's into one. Please help.

Firecop1348

Board Regular

Excel Facts

Firecop1348

Board Regular

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock