Hi, I am looking for a solution to be able to allow some cells that are
unlocked to have other users enter data into them, however I don't wan't
other users to be able to enter formulas without a password. I have heard of
this being done before but I didn't know if it was an option I've overlooked
or some kind of advanced VB code.

Any help is greatly appreciated,

RH

Hi,

Just an idea:
try catching OnChange event and check if = is entered and then popup a
password dialog

Hope this helps.

Peter
--
http://blog.jausovec.net


"RHmcse2003" je napisal:

Hi, I am looking for a solution to be able to allow some cells that are
unlocked to have other users enter data into them, however I don't wan't
other users to be able to enter formulas without a password. I have heard of
this being done before but I didn't know if it was an option I've overlooked
or some kind of advanced VB code.

Any help is greatly appreciated,

RH

That sounds pretty logical Peter, any idea on the syntax for that?

Thanks for the replies!

"Peter Jausovec" wrote:

Hi,

Just an idea:
try catching OnChange event and check if = is entered and then popup a
password dialog

Hope this helps.

Peter
--
http://blog.jausovec.net


"RHmcse2003" je napisal:

Hi, I am looking for a solution to be able to allow some cells that are
unlocked to have other users enter data into them, however I don't wan't
other users to be able to enter formulas without a password. I have heard of
this being done before but I didn't know if it was an option I've overlooked
or some kind of advanced VB code.

Any help is greatly appreciated,

RH

Hi,

Use the SelectionChangeEvent:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If (Left(Target.Value,1) = "=") Then
' user is trying to enter a formula - do something
End If
End Sub
--
http://blog.jausovec.net


"RHmcse2003" je napisal:

That sounds pretty logical Peter, any idea on the syntax for that?

Thanks for the replies!

"Peter Jausovec" wrote:

Hi,

Just an idea:
try catching OnChange event and check if = is entered and then popup a
password dialog

Hope this helps.

Peter
--
http://blog.jausovec.net


"RHmcse2003" je napisal:

Hi, I am looking for a solution to be able to allow some cells that are
unlocked to have other users enter data into them, however I don't wan't
other users to be able to enter formulas without a password. I have heard of
this being done before but I didn't know if it was an option I've overlooked
or some kind of advanced VB code.

Any help is greatly appreciated,

RH

.... Hi Peter, maybe this:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If Left(Target.Formula, 1) = "=" Then
' user is trying to enter a formula - do something"
End If
End Sub


--
pozdrav!
Berislav

Always nice to hear if a suggestion works or not.
************************************************** *********
ROT13 - email address



Peter Jausovec wrote:
Hi,

Use the SelectionChangeEvent:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If (Left(Target.Value,1) = "=") Then
' user is trying to enter a formula - do something
End If
End Sub

That sounds pretty logical Peter, any idea on the syntax for that?

Thanks for the replies!

"Peter Jausovec" wrote:

Hi,

Just an idea:
try catching OnChange event and check if = is entered and then
popup a password dialog

Hope this helps.

Peter
--
http://blog.jausovec.net


"RHmcse2003" je napisal:

Hi, I am looking for a solution to be able to allow some cells
that are unlocked to have other users enter data into them,
however I don't wan't other users to be able to enter formulas
without a password. I have heard of this being done before but I
didn't know if it was an option I've overlooked or some kind of
advanced VB code.

Any help is greatly appreciated,

RH

Hi Berislav,

Well, basically in this case it doesn't matter if you use .Value or .Formula

Range("A1").Value = "=A3+A4"
Range("A2").Formula = "=A3+A4"

Both of them have same result :)

Regards,
Peter
--
http://blog.jausovec.net


"b&s" je napisal:

.... Hi Peter, maybe this:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If Left(Target.Formula, 1) = "=" Then
' user is trying to enter a formula - do something"
End If
End Sub


--
pozdrav!
Berislav

Always nice to hear if a suggestion works or not.
************************************************** *********
ROT13 - email address



Peter Jausovec wrote:
Hi,

Use the SelectionChangeEvent:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If (Left(Target.Value,1) = "=") Then
' user is trying to enter a formula - do something
End If
End Sub

That sounds pretty logical Peter, any idea on the syntax for that?

Thanks for the replies!

"Peter Jausovec" wrote:

Hi,

Just an idea:
try catching OnChange event and check if = is entered and then
popup a password dialog

Hope this helps.

Peter
--
http://blog.jausovec.net


"RHmcse2003" je napisal:

Hi, I am looking for a solution to be able to allow some cells
that are unlocked to have other users enter data into them,
however I don't wan't other users to be able to enter formulas
without a password. I have heard of this being done before but I
didn't know if it was an option I've overlooked or some kind of
advanced VB code.

Any help is greatly appreciated,

RH

Hi

Unprotect the cells where you want to allow entries, then click on
Tools|Protection|Protect sheet. Type in a password and untick Select locked
cells.

Click on OK, and when asked, re-enter the password

"RHmcse2003" wrote:

Hi, I am looking for a solution to be able to allow some cells that are
unlocked to have other users enter data into them, however I don't wan't
other users to be able to enter formulas without a password. I have heard of
this being done before but I didn't know if it was an option I've overlooked
or some kind of advanced VB code.

Any help is greatly appreciated,

RH