Hi OSA,
To prevent the user opening a workbook with macros disabled:
Create a new sheet, and write on it in large text, "You can't use this workbook
with macros disabled."
Use a workbook close macro to make all other sheets xlveryhidden.
Use a workbook open macro to unhide all sheets except the new one, which should
be hidden.
Regards - Dave.
Date: Tue, 27 Apr 2010 13:10:16 +0800
Subject: Re: $$Excel-Macros$$ worksheet change event problem
From: osav...@gmail.com
To: excel-macros@googlegroups.com
Thank you Dave,
The code you suggested worked fine. Although i discovered that the user can
still open the file with macro disabled and change the cell content, save and
reopen it. now I wish when the workbook is open, it checks the value of
sheet1(D3) if equal to "BRIDGESTONE COMPANY INC." if yes then continue, other
wise close the workbook.
On Tue, Apr 27, 2010 at 10:30 AM, Dave Bonallack <davebonall...@hotmail.com>
wrote:
Hi,
Try this code instead:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Sheets("Sheet1").Range("D3") <> "BRIDGESTONE COMPANY INC." Then
MsgBox " FILE WILL BE CLOSED!!", vbOKOnly + vbExclamation
MsgBox "Please contact EDP "
ThisWorkbook.Close savechanges:=False
End If
End Sub
Change the sheet name to suit.
Regards - Dave.
Date: Mon, 26 Apr 2010 16:30:04 +0800
Subject: $$Excel-Macros$$ worksheet change event problem
From: osav...@gmail.com
To: excel-macros@googlegroups.com
Dear group,
i try to catch the user's action via worksheet change event. My worksheet has
a value at cell D6 that i would like to remain constant and if that value is
change by user the workbook is closed.
My problem now is, even if this values are unchanged but if any other range of
cell is deleted, the macro is triggered which i really don't understand why?
The macro is triggered when i delete a content of a cell range. but if a
single cell is deleted nothing happens.
any suggestion why is this so? here is my code.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target = [$D$3] Then
If Target.Value <> "BRIDGESTONE COMPANY INC." Then
MsgBox " FILE WILL BE CLOSED!!", vbOKOnly + vbExclamation
MsgBox "Please contact EDP "
ThisWorkbook.Close savechanges:=False
End If
End If
End Sub
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
Australia's #1 job site If It Exists, You'll Find it on SEEK
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
_________________________________________________________________
If It Exists, You'll Find it on SEEK. Australia's #1 job site
http://clk.atdmt.com/NMN/go/157639755/direct/01/
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
