| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run Time Error 1004: Please help
Option Explicit
Private Sub REmove_Net_Pricing_Info_Click() ' SelectButton Macro ' Macro recorded 2/20/2006 by JFS ' Delete TP Contract References to Pricing (Customer Copy), ' so it can be added to Trailer Contract ' Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets If ws.ProtectContents = True Then ws.Unprotect ("Fern") End If Next ActiveWorkbook.Unprotect (["Ferd"]) Sheets("Options").Select Range("C6").Select Selection.ClearContents Range("H6:I6").Select Selection.ClearContents Sheets("Pricing").Select Range("C120").Select Selection.ClearContents Range("C121").Select Selection.ClearContents Sheets("Contract").Select Range("B1").Select If ws.ProtectContents = False Then ws.Protect ("Fern") End If Application.ScreenUpdating = True End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run Time Error 1004: Please help
Option Explicit
Private Sub REmove_Net_Pricing_Info_Click() ' SelectButton Macro ' Macro recorded 2/20/2006 by JFS ' Delete TP Contract References to Pricing (Customer Copy), ' so it can be added to Trailer Contract ' Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets If ws.ProtectContents = True Then ws.Unprotect ("Fern") End If Next ActiveWorkbook.Unprotect (["Ferd"]) Sheets("Options").Select Range("C6").Select Selection.ClearContents Range("H6:I6").Select Selection.ClearContents Sheets("Pricing").Select Range("C120").Select Selection.ClearContents Range("C121").Select Selection.ClearContents Sheets("Contract").Select Range("B1").Select for each ws in ActiveWorkbook.Worksheets If ws.ProtectContents = False Then ws.Protect ("Fern") End If Next Application.ScreenUpdating = True End Sub -- Regards, Tom Ogilvy "BEEJAY" wrote in message ... Option Explicit Private Sub REmove_Net_Pricing_Info_Click() ' SelectButton Macro ' Macro recorded 2/20/2006 by JFS ' Delete TP Contract References to Pricing (Customer Copy), ' so it can be added to Trailer Contract ' Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets If ws.ProtectContents = True Then ws.Unprotect ("Fern") End If Next ActiveWorkbook.Unprotect (["Ferd"]) Sheets("Options").Select Range("C6").Select Selection.ClearContents Range("H6:I6").Select Selection.ClearContents Sheets("Pricing").Select Range("C120").Select Selection.ClearContents Range("C121").Select Selection.ClearContents Sheets("Contract").Select Range("B1").Select If ws.ProtectContents = False Then ws.Protect ("Fern") End If Application.ScreenUpdating = True End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run Time Error 1004: Please help
SORRY about the duplicate posting - please use other one - Thank you.
|
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run Time Error 1004: Please help
Thanks, Tom, for the prompt response.
Sorry this one got sent before I completed my comments - I hit the right button at the wrong time, I guess. I added your input to that received from the other post and got it going. Thanks Again. jfs "Tom Ogilvy" wrote: Option Explicit Private Sub REmove_Net_Pricing_Info_Click() ' SelectButton Macro ' Macro recorded 2/20/2006 by JFS ' Delete TP Contract References to Pricing (Customer Copy), ' so it can be added to Trailer Contract ' Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets If ws.ProtectContents = True Then ws.Unprotect ("Fern") End If Next ActiveWorkbook.Unprotect (["Ferd"]) Sheets("Options").Select Range("C6").Select Selection.ClearContents Range("H6:I6").Select Selection.ClearContents Sheets("Pricing").Select Range("C120").Select Selection.ClearContents Range("C121").Select Selection.ClearContents Sheets("Contract").Select Range("B1").Select for each ws in ActiveWorkbook.Worksheets If ws.ProtectContents = False Then ws.Protect ("Fern") End If Next Application.ScreenUpdating = True End Sub -- Regards, Tom Ogilvy "BEEJAY" wrote in message ... Option Explicit Private Sub REmove_Net_Pricing_Info_Click() ' SelectButton Macro ' Macro recorded 2/20/2006 by JFS ' Delete TP Contract References to Pricing (Customer Copy), ' so it can be added to Trailer Contract ' Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets If ws.ProtectContents = True Then ws.Unprotect ("Fern") End If Next ActiveWorkbook.Unprotect (["Ferd"]) Sheets("Options").Select Range("C6").Select Selection.ClearContents Range("H6:I6").Select Selection.ClearContents Sheets("Pricing").Select Range("C120").Select Selection.ClearContents Range("C121").Select Selection.ClearContents Sheets("Contract").Select Range("B1").Select If ws.ProtectContents = False Then ws.Protect ("Fern") End If Application.ScreenUpdating = True End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Run time error 1004, General ODBC error | New Users to Excel | |||
| run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
| Run time error '1004': Generaol ODBC error | Excel Programming | |||
| Run time error 1004 General ODCB Error | Excel Programming | |||
| Application Run Time Error 1004 and Stack Error | Excel Programming | |||
Linear Mode
