Map of Renewable Water

Map Courtesy of GeoIT Consult.

(c) 2011

Data Stamp for ArcGIS ArcMap_UIToolControl1

Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)

'Attach this script to a UITool Control
Dim theDate
Dim theTime
Dim pTemplates As ITemplates
Dim lTempCount As Long
Dim strDocPath As String
Dim pMxDoc As IMxDocument
Dim pPageLayout As IPageLayout
Dim pActiveView As IActiveView
Dim pGraphicsContainer As IGraphicsContainer
Dim pTextElement As ITextElement
Dim pElement As IElement
Dim pPoint As IPoint

Set pMxDoc = Application.Document
Set pPageLayout = pMxDoc.PageLayout
Set pActiveView = pPageLayout
Set pGraphicsContainer = pPageLayout

'check that Arcmap is in layout view

If Not TypeOf pMxDoc.ActiveView Is IPageLayout Then
MsgBox "This tool works only in layout View", vbOKOnly
Exit Sub
End If

Set pTextElement = New TextElement
Set pElement = pTextElement
theDate = Date
theTime = Time
Set pTemplates = Application.Templates
lTempCount = pTemplates.Count

' The document is always the last item
strDocPath = pTemplates.Item(lTempCount - 1)

Set pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)
pTextElement.Text = "Copyright EbenGIS & Associates" & vbCrLf & _
"This map (" & strDocPath & ")" & vbCrLf & _
"was produced on" & " " & theDate & " " & "at" & " " & theTime
pElement.Geometry = pPoint
pGraphicsContainer.AddElement pElement, 0
pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing

End Sub

ArcGIS Tutorial: Password protect ArcMap Mxd

This tutorial aims at setting a custom password for your ArcMap project file. Users will be asked for a valid password ( for this tutorial set to ‘lovejesus’). On a user entering a valid password the ArcMap document will open, otherwise, an empty ArcMap instance will be opened instead. INITIAL SET-UP In a chosen folder save two ArcMap Documents. Once document should have at least a layer loaded in it (or better still a copy of one of your actual projects !!), the other file should be an empty ArcMap document: File1: . In this tutorial I’ll use ‘password protect _jesus’ File 2: . In this tutorial I’ll name it ‘myEmptyDocument’

______________________

Private Function MxDocument_OpenDocument() As Boolean Dim strPassword As String strPassword = InputBox("Enter Password", "Authenticate your Clearance") If strPassword = "lovejesus" Then MsgBox "Welcome staff member", vbOKOnly, "Clearance Authenticated" Else MsgBox ThisDocument.Title & " needs a valid Authentication to open" & _ " you will now be redirected." Application.NewDocument False, "h:\ebengiswebsite\tutorials\myEmptyDocument.mxt" End If End Function

Link the above code to a custom button and you'd do fine