How to create password protected word document??

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ Visual Basic
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - vb6.0 create recurrence schedule I am trying to implement a recurrence schedule component for the users to attach to a discount model for their retail products. For example, they want to discount a product during "happy hour" and do that on Monday, Tuesday, and Thursday. There are lots of suggestions searching google but they mainly have to do with outlook/exchange or some other PIM. I want that same functionality, but I don't see how to separate it. I just want the recurring pattern. Any suggestions? WB Tag: How to create password protected word document?? Tag: 712829
  - 2
    - vb6.0 udp multicast problem I have a UNIX machine broadcasting and receiving messages via UDP multicast. I have configured a vb6.0 app with a winsock control configured haphazardly. I say haphazardly because there are no winsock udp multicast examples in any Microsoft documentation or any where else for that matter. I can send messages to the Unix machine, it receives them and parses them perfectly. Messages coming back are not received by the vb6.0 app. Question 1. Can the winsock control be configured udp multicast? Since all the examples show unicast. Question 2. Does anyone have sample code if it is possible? is there any other way that I can receive this udp multicast traffic in a vb6.0 application. Thanks emp1953 Tag: How to create password protected word document?? Tag: 712827
  - 3
    - Function horribly slow Can anyone tell me why this function is so horribly slow (on some PCs)??? Public Function FileForceCopy(ByVal uSource As String, ByVal uDestination As String) As Boolean On Error GoTo ErrHandler Dim lSourceLen& Dim iSF% Dim iDF% Dim sChunk As String Dim iBytesToGet% Dim lBytesCopied& Debug.Print uSource Debug.Assert FileExists(uSource) '/* Get source file length */ lSourceLen = FileLen(uSource) '/* Open both files */ iSF = FreeFile() '/* We MUST open a file after calling FreeFile(), else the next FreeFile will be the same number */ Open uSource For Binary Shared As #iSF '/* Only know we can call the next FreeFile() */ iDF = FreeFile() Debug.Print uDestination TryKill uDestination If FileExists(uDestination) Then Debug.Print "Source: " & uSource Debug.Print "Destination: " & uDestination Debug.Assert False Exit Function End If Debug.Print uDestination Open uDestination For Binary As #iDF 'How many bytes to get each time iBytesToGet = 4096 '4kb lBytesCopied = 0 'Keep copying until finishing all bytes Do While lBytesCopied < lSourceLen 'Check how many bytes left If iBytesToGet < (lSourceLen - lBytesCopied) Then 'Copy 4 KBytes sChunk = Space(iBytesToGet) Get #iSF, , sChunk Else 'Copy the rest sChunk = Space(lSourceLen - lBytesCopied) Get #iSF, , sChunk End If lBytesCopied = lBytesCopied + Len(sChunk) 'Put data in destination file Put #iDF, , sChunk Loop Close #iSF Close #iDF FileForceCopy = True Exit Function ErrHandler: Debug.Print Err.Description Debug.Assert FileExists(uSource) 'Debug.Print Len(uSource) Debug.Print uDestination Debug.Print uSource Debug.Assert False Call WriteLog("#FileForceCopy: " & Err.Description & ", err.number: " & Err.Number & ", Params: '" & "" & "'") End Function Tag: How to create password protected word document?? Tag: 712826
  - 4
    - API URLDownloadToFile or Inet Control Hello - My app downloads files from a Web Server. I look for two options 1. API URLDownloadToFile 2. Inet Control - I think that Inet has same API - isn't it? - While URLDownloadToFile is very hard code My question is - what do you recommend me? - I need the best efficiency in download time. -- Juan Marcial Ingeniero de Software Tag: How to create password protected word document?? Tag: 712802
  - 5
    - Programing VB When i type something in a textbox i want to know in the programm when the CarrigeReturn button is enter. Can enyone help me. Tag: How to create password protected word document?? Tag: 712799
  - 6
    - How can I get PC id of one machine on my network from another PC o Hello, I would like to know if there's a way to get the PC id of any computer on my network from any other computer on my network. The reason I want to do this is so my app will know which machine it's stored on vs the machine running it. Is this possible? If so, can anyone tell me a good way to do this. Thanks in advance, Garry Tag: How to create password protected word document?? Tag: 712754
  - 7
    - Add (first) menu items at runtime, then (second) subitems to newly Can I add (at runtime) subitems to menu items that I created (at runtime) without using API functions? Tag: How to create password protected word document?? Tag: 712730
  - 8
    - Need help with sqlite3.dll Hi, I am trying to open and manipulate a sqlite database, containing cookie information in FireFox browser. I have an application that I use which removes all the cookies I don't want to save and worked just fine until FireFox changed to a sqlite type database. :-) I am trying a wrapper which I can get to open the database and list all the items contained in a listview control. But I cannot figure out how to delete the ones I don't want. If anyone knows of a better way to do this please let me know. Thanks, Norm Code: Option Explicit '// SQL Lite dll declarations: Private Declare Sub sqlite3_open Lib "SQLite3VB.dll" (ByVal FileName As String, ByRef handle As Long) Private Declare Sub sqlite3_close Lib "SQLite3VB.dll" (ByVal DB_Handle As Long) Private Declare Function sqlite3_last_insert_rowid Lib "SQLite3VB.dll" (ByVal DB_Handle As Long) As Long Private Declare Function sqlite3_changes Lib "SQLite3VB.dll" (ByVal DB_Handle As Long) As Long Private Declare Function sqlite_get_table Lib "SQLite3VB.dll" (ByVal DB_Handle As Long, ByVal SQLString As String, ByRef ErrStr As String) As Variant() Private Declare Function sqlite_libversion Lib "SQLite3VB.dll" () As String ' Now returns a BSTR '// This function returns the number of rows from the last sql statement. Use this to ensure you have a valid array Private Declare Function number_of_rows_from_last_call Lib "SQLite3VB.dll" () As Long Dim DB As Long Private Sub Form_Load() ' Display the SQLite3VB version Caption = "Cookies Listed In FireFox V.3 Profiles File" StartQueary End Sub Private Sub StartQueary() Dim mRetErr As String ' Will hold an error string if one is encountered Dim mResultCnt As Long Dim mDBFile As String Dim mQuery As String Dim i As Long mQuery = "SELECT * FROM moz_cookies" 'Text2.Text mDBFile = App.Path & "\" & "cookies.sqlite" 'mDBFile lvResults.ListItems.Clear lvResults.ColumnHeaders.Clear SB1.SimpleText = "Querying database" mResultCnt = DBQuery(mDBFile, mQuery, mRetErr) If mRetErr <> "" Then MsgBox mRetErr, vbCritical, "SQLite Database Error" End If SB1.SimpleText = mResultCnt & " Cookies Listed In File!" For i = 1 To lvResults.ColumnHeaders.Count If lvResults.ColumnHeaders.Item(i).Text = "host" Or lvResults.ColumnHeaders.Item(i).Text = "name" _ Or lvResults.ColumnHeaders.Item(i).Text = "expiry" Then Else lvResults.ColumnHeaders.Item(i).Width = 0 End If Next i DoEvents Sleep 100 Set lvResults.SelectedItem = lvResults.ListItems.Item(1) End Sub Private Function DBQuery(ByVal DBFile As String, ByVal QueryStr As String, ByRef ErrStr As String) As Long On Error GoTo ERR_TRAP Dim i As Long Dim mVar As Variant ' Will hold our results Dim mV1 As Variant ' Will be used to get each individual result Dim mErrStr As String Dim mStr As String Dim mRowCnt As Long Dim mCurColumn As String Dim LI As ListItem If QueryStr = "" Or DBFile = "" Then Exit Function sqlite3_open DBFile, DB If DB > 0 Then mVar = sqlite_get_table(DB, QueryStr, mErrStr) If mErrStr <> "" Then ErrStr = mErrStr sqlite3_close DB Exit Function Else mRowCnt = number_of_rows_from_last_call If mRowCnt > 0 Then For Each mV1 In mVar mStr = mV1 If i = 0 Then mCurColumn = mStr lvResults.ColumnHeaders.Add , mCurColumn, mCurColumn Else If lvResults.ColumnHeaders.Count = 1 Then lvResults.ListItems.Add , , mStr ElseIf lvResults.ColumnHeaders.Count > 1 Then Set LI = lvResults.ListItems(i) LI.SubItems(lvResults.ColumnHeaders.Count - 1) = mStr End If End If i = i + 1 If i > mRowCnt Then i = 0 End If Next End If End If 'sqlite3_close DB End If DBQuery = lvResults.ListItems.Count Exit Function ERR_TRAP: ErrStr = Err.Description End Function Private Sub Form_Unload(Cancel As Integer) Dim mDBFile As String mDBFile = App.Path & "\" & "cookies.sqlite" 'mDBFile sqlite3_close DB End Sub Tag: How to create password protected word document?? Tag: 712729
  - 9
    - stop Gettickcount stopping When pressing the form title bar, when using Gettickcount as a timer for a small animation, the animation stops. If that is the expected beahaviour how does one allow the animation to continue at all times? Cheers Tag: How to create password protected word document?? Tag: 712723
  - 10
    - How do I create an new instance of a form using name in variable? I would like to do the following using Visual Basic 6 ... Private Sub CreateForm(RequiredFormName as string) dim f as form set f = new RequiredFormName End Sub The reason for this is that I have records in lists with associated tags which have the relevant form name in it to open that particular record in - therefore I need to open the correct form based on the formname in the tag. I'm sure this is possible - i hope so as I need to do the same thing with a crystal report. Thanks Lee Tag: How to create password protected word document?? Tag: 712685
  - 11
    - Access SQL - Select most recent child record I have two tables. One for members and one for the events that members attended. I need to write a query that returns one row for each member with the most recent event attended. Here are the tables/fields below. Thank you. Regards, Drew Members Table: ID First Last Event Table: MemberID Event Date Tag: How to create password protected word document?? Tag: 712684
  - 12
    - Double quote issue with VB6, Access and text files ** remove nospam from email address if replying direct. This has been driving me crazy on and off for years and hope someone can help. Using VB6 I create an Access database. I then take a pipe delimited text file and populate the fields of the database. This works really well 99 percent of the time. Where I run into difficulties is when a record has double quotes. One of two things happen...either I get a message stating that the text file is not in the expected format or it discontinues reading the file without any error messages. Here is a sample |1|Change site "A" to site "B"| Please advise... Jerry Tag: How to create password protected word document?? Tag: 712677
  - 13
    - How to check if the user has administrative privileges? Hello, How to check if the user has administrative privileges in Windows XP? and How to check the same in Vista, but also run an additional check for the administrative privileges second token? Just to explain: In Vista the administrative privileges second token is when the user selects 'Run As Administrator' when starting executable. Your attention appreciated, Jack Tag: How to create password protected word document?? Tag: 712674
  - 14
    - Bizarre broken Visual Studio 2005 Issue PC with VS2005 and VS2008 side-by-side Everything working normally yesterday; no subsequent installs of any additional software or SP's since then. Create a new Visual Basic Windows Application project in VS2005 and start debug by clicking play button and this is what happens: Startup form does not show; instead, an empty, design-time Properties dialog box appears, very briefly, and then project exits, all within 1 second or so. Exactly the same thing happens whether you start with a new Windows Application project, or load an existing Project, so this would not appear to be a project-specific problem, but rather a VS2005 problem I would really, really, really rather not have to do a complete re-installation................sigh If anyone has any ideas? Tag: How to create password protected word document?? Tag: 712671
  - 15
    - Graphic problems I want to (I already did, but it did not work 100%) integrate a function that slide an image into current DC. I'm using bitblt for that. I'm desperate because I always hear that BitBlt is the fastest graphics function ever. My slide isn't smooth. I got a Wii Playstation, and it uses this "slide in" effect quite often. And I wonder how they managed to make it fail proof. Is it because these programmers know that there are no other apps that can consume CPU? I am doing my slide in a loop and check for the time the last slide step took to complete and set the next step accordingly: If the last step was slower than expected, the next step will occur earlier, and the next-next step will also occur earlier to compensate for the lost time. Does anybody have a magic solution or can (PLEASE!) tell me that I'm stupid and did it totally wrong? Tag: How to create password protected word document?? Tag: 712646
  - 16
    - missing chkdsk/f I would like to run chkdsk/f to speed up my computer, but when I try to run it I get a message saying that it is not found. A search also does not find it. Where do you think it is? Tag: How to create password protected word document?? Tag: 712633
  - 17
    - ViewPort3D and windows forms Hi, I'm Reading Petzold's 3d Programming for Windows and trying to use the Windows Presentation Foundation Classes I've got a Viewport3d created but I can't figure out how to attatch it to a form so I can see what it's output is. Petzold says it can be done. He attaches it to a DockPanel and then to the window.content property, But I don't have access to a .content property of a windows form. I am stumped... Thanks for any ideas... Tony C. Tag: How to create password protected word document?? Tag: 712627
  - 18
    - Something like a "live help" tool I would like to integrate a "live help" tool in my application because it's really complex and from my experience resellers/ customers will rather call me/ us to get help than to read the manual. I would like to integrate something like a chat but I have no clue about which way to go. Can somebody give me a push in the right direction? Tag: How to create password protected word document?? Tag: 712602
  - 19
    - Very strange: the code was good for the last 10 years and now it is stumbling!!! Hello, Maybe someone else had the same problem. The code writing to Windows registry was good and working perfectly for the last 10 years and now suddenly it stops working intermittently. By " intermittently" I mean that when on the first run the code fails (there is not any error returned, just the registry is not written), the repeated attempt to run the same code is mostly successful like that sample below: ----------------------- rtn = OSRegSetValueEx(phkResult, "My Key", 0, 1, ByVal Release, Len(Release)) rtn = OSRegSetValueEx(phkResult, "My Key", 0, 1, ByVal Release, Len(Release)) ----------------------- And, that happens on the different user computers in different countries(!), and it happened (although once only) on my computer, when testing user complaint (Windows XP) I appreciate any comments on that. Jack Below, is the code in question: ===================== Declare Function OSRegCreateKey Lib "advapi32" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long Declare Function OSRegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpszValueName As String, ByVal dwReserved As Long, ByVal fdwType As Long, lpbData As Any, ByVal cbData As Long) As Long hKey = HKEY_CURRENT_USER lpszSubKey = "Software\Me\My Software" rtn = OSRegCreateKey(hKey, lpszSubKey, phkResult) rtn = OSRegSetValueEx(phkResult, "My Key", 0, 1, ByVal Release, Len(Release)) ======================= Tag: How to create password protected word document?? Tag: 712596
  - 20
    - Search and replace in textfile Hi, i just found this thread: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D : Hi, : I haven't programmed in VB for some time and want to be : able to Open a text file, named "OP10.imp", and replace : every instance of "BDL" with "<" within the file and save : it with the same filename. I know that it's possible but : I'm just not sure how to start. : I'm using VB 6 : : Thank you for any assistance you can provide, : Al You could try something like this (I think I've read somewhere it's better to output to a temp file then kill the original and rename the temp) This will replace all BDL, whether standalone, or as part of other words eg initials representing something GOBDLE will become GO<E Dim ff As Long: ff =3D FreeFile() Dim fileText As String Open App.Path & "\abc.txt" For Input As #ff fileText =3D Input(LOF(ff), #ff) Close #ff fileText =3D Replace(fileText, "BDL", "<") Open App.Path & "\abc.txt" For Output As #ff Print #ff, fileText Close #ff =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D I just found this thread, used the info and it worked for me. Except one problem: After writing the replaced text back to the file, i get an additional empty line at the end of the file which causes my import to fail. How do i get rid of that extra trailing line at the end of the file, which doesn=B4t exist when opening the file before replacing characters. Thanks! Otto Tag: How to create password protected word document?? Tag: 712584
  - 21
    - Confession of IT nightmare employee I needed to reinstall my palm handheld on my work computer. This requires admin rights, so I sent a request. While I was waiting, I happened to notice that there are some stray vbs scripts on my desktop for installing software that the company added over the year or so. These scripts have an admin password in the text. After waiting 8 or 9months (not kidding), I rewrote the scripts to install the palm software. This has worked, sort of. I can reinstall my software but it seems several stages are skipped. There is no shortcut on my desktop, and I can't read my hot sync log. Here are my questions. Why does this password work in the script, but not for logon? Also if I try to use it in the command window (cmd.exe--runas /profile...) the key board won't even type the password. Why? Tag: How to create password protected word document?? Tag: 712583
  - 22
    - How to hook-up my uninstall code to Add, Remove Programs? Hello, How to make sure, that when user decides uninstall program from Control Panel>Add, Remove Programs my own uninstall utility will be launched as well? Jack Tag: How to create password protected word document?? Tag: 712556
  - 23
    - What the...? So as not to reply to SPAM, I'll comment in another thread about the "Advice needed" thread. Is that not the funniest thing you've seen in a while? Tag: How to create password protected word document?? Tag: 712548
  - 24
    - links not highlighted on return Highlight is probably the wrong word. I am on a page with many links. I click on a link and go to that page. Then I exit that page and am back on the many links page. On Win98 the link I just used would be a Red color or appear to have been clicked. I would then know which one I last clicked on. On WinXP, when I return to the page of links, there is no indication that I ever clicked on a link. Is there a way, on XP, to have the Win98 action? If no answer, what is the correct IE newsgroup to try. Galen Tag: How to create password protected word document?? Tag: 712535
  - 25
    - Setting Icons to the Shortcuts in the Program File Hi All I am trying to resolve a problem with an Inno project, OK I am sorry I know its not VB but a lot of VB expert use Inno and I cannot seem to get an answer that works from the Inno forum. Q. I have a fully compiled project from the Inno *.iss and it creates 2 shortcuts on the harddrive (C) one runs the program the other uninstalls it, I want to attache an selected Icon to these. I hope somebody can help me. Ron Here is my Inno Setup #define MyAppName "Searcher" #define MyAppVerName "File Searcher 1.2.5" #define MyAppExeName "FS_Searcher.exe" [Setup] ; NOTE: The value of AppId uniquely identifies this application. AppId={{AD784B1F-D5E0-4D3F-A66C-1DDA6761D191} PrivilegesRequired=Admin AppName={#MyAppName} AppVerName={#MyAppVerName} AppPublisher={#MyAppPublisher} DefaultDirName={pf}\{#MyAppName} DisableDirPage=yes DefaultGroupName={#MyAppName} OutputBaseFilename=Searcher Compression=lzma SolidCompression=true SetupIconFile=Icons\Drive01.ico Uninstallable=true UninstallDisplayIcon=Icons\Trash02B.ico [Languages] Name: english; MessagesFile: compiler:Default.isl [Tasks] Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked [Files] ;Begin VB System Files Source: vbfiles\stdole2.tlb; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regtypelib Source: vbfiles\msvbvm60.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver Source: vbfiles\oleaut32.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver Source: vbfiles\olepro32.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver Source: vbfiles\asycfilt.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile Source: vbfiles\comcat.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver ;End VB System Files ;Begin Package Files] Source: pFiles\comctl32.ocx; DestDir: {sys}; Flags: regserver sharedfile restartreplace Source: pFiles\COMDLG32.OCX; DestDir: {sys}; Flags: regserver sharedfile restartreplace Source: pFiles\FS_Searcher.exe; DestDir: {app}; Flags: restartreplace Source: Icons\Drive01.ico; DestDir: {app}; Flags: restartreplace ignoreversion uninsrestartdelete Source: Icons\Trash02B.ico; DestDir: {app}; Flags: restartreplace ignoreversion uninsrestartdelete ;End Package Files [Icons] Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName} ;Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; IconFilename: {app}Icons\Drive01.ico Name: {group}\Uninstall Seacher; Filename: {uninstallexe}; IconFilename: {app}Icons\Trash02B [Run] Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent Tag: How to create password protected word document?? Tag: 712528
- Next
  - 1
    - Limit upload speed (winsock) Hi, I made a small tool to upload files to a server with Winsock. More and more users are asking me to build in a feature to limit the upload speed, but I have no idea how this is done. I searched several forums, newsgroups and google, but can't find any information. Basically I would like to have a textbox on the form and when the user types '25' into the textbox, then the upload speed is limited to 25kB/s. Does anybody have any information about how to do this? Thanks. -Chris Tag: How to create password protected word document?? Tag: 712527
  - 2
    - Whippleware What happened to it? I see the web page is still up. I tried to contact Ben (if i remember his name correctly), but the email got bounced. I bought a copy in the late ninetees, was trying to use it, but don't have the program anymore. Tag: How to create password protected word document?? Tag: 712507
  - 3
    - SMS Text message in VB6.0 I am trying to implement text messaging into an application and I want to know if someone has recommendations on how or what to use within VB6.0 to accomplish this. WB Tag: How to create password protected word document?? Tag: 712458
  - 4
    - comparing Timer and Now When dealing with time (calculating the seconds passed) what is more effective: using Now or Timer functions? For example: DateDiff("s", Timer, StartScriptWait) or DateDiff("s", Now, StartScriptWait) Any advantages or disadvantages of using one or another? What to look for? Your comments appreciated, Jack Tag: How to create password protected word document?? Tag: 712457
  - 5
    - VB6 ieframe.dll error I recently updated my web browser from IE6 to IE7. After successfull installation i opened my project developed in vb6. While loading the project started giving error message : File not found: 'C:\WINDOWS\system32\ieframe.dll\1' And i was unable to run my project. I don't have any idea about this error related solution . Can somebody help me out of this. Atul Tag: How to create password protected word document?? Tag: 712445
  - 6
    - Text file print anomaly Hi all, I have a situation which I cannot explain and would like to share it here hoping for some orientation. I have two output text files, one is a data file and the other is a log file. When the process starts I open the log file first: iFHLog = freefile() open sFileName for output as #iFHLog I proceed to do some preprocessing (set up environment, open DBs, etc.) and such events. I then call the routine that will create the data file and open the file: iFHData = freefile() open sDataFile for output as iFHData And immediately proceed to log the event: '27 is "open data file" event sysLogEvent iFHLog, 27, lngErNo, sDataFile & " - FHS=" & intFH I further log other events as the data file is being created. When the process is done the data file looks something like this: Data line Header Logged event Data line 1, section 1 Data line 2, section 1 : Data line N, section 1 logged event Date line 1, section 2 : Data line N, section 2 logged event Why is my data file littered with log events when I distinctly write out the data and event to 2 different files? It gets weirder: In the 4 plus years that this process has been running this has happened maybe 4 or 5 times given that hundreds of these data files are created correctly everyday. Since this is a mission critical process, that's 4 or 5 times too many :-S I can understand this failing if I did something like this: iFHLog = freefile() iFHData = freefile() open sLogFile for output as #iFHLog open sDataFile for output as #iFHData However, this is not the case. Thanks. Saga -- Tag: How to create password protected word document?? Tag: 712429
  - 7
    - Activex DLL inserts 0 instead of null Several years ago I wrote an activex dll in VB6 that imports data into ADO recordsets from ASCII data files. When a value is blank in the ASCII file, I want the recordset to store a null, but it stores a 0 instead. I used adFldIsNullable as the field attribute, but that does not seem to work. Am I doing something wrong? Is this a bug in ADO? Any workaround would be appreciated. Thanks, Martin Tag: How to create password protected word document?? Tag: 712408
  - 8
    - Crystal Reports PDF in VB6 Hi, I am a VB9 user who is now busy with doing some changes in VB6. Maybe one of you knows the solution of my Crystal Reports Problem. I had this code: With omReport .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.DiskFileName = cdlExport.FileName .ExportOptions.FormatType = crEFTExactRichText .ExportOptions.RTFExportAllPages = True .Export False The above is working and gives an RTF (report) file. I have changed that into With omReport .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.DiskFileName = cdlExport.FileName .ExportOptions.FormatType = CRExportFormatType.crEFTPortableDocFormat .ExportOptions.PDFExportAllPages = True .Export (False) Now it does not get any (report) file anymore. The version I use from craxdrt = 8.5.0.217 Thanks in advance Cor Tag: How to create password protected word document?? Tag: 712403
  - 9
    - Int64 of C# to Date of VB6 Hi- I have to read to read a binary file created with C#. Structure like Int32 Int64 Int32 float . Not problem. Private Sub Test1() Dim f As Long Dim fn As String Dim i As Long Dim v As Single fn = "C:\wells\dvcoredata\Ra_YAMU0001\curday.bin" f = FreeFile Open fn For Binary As f ' ok (4 bytes) Get #f, , i Debug.Print i ' ticks (8 bytes) . ? is a datetime! Get #f, , i Get #f, , i ' ok (4 bytes) Get #f, , i Debug.Print i ' value. float to Single. ok Get #f, , v Debug.Print v Close f End Sub Int64 is a DateTime ticks of C#... Somebody knows how to convert this 64 bytes to Date of VB6? -- <Harvey Triana /> Tag: How to create password protected word document?? Tag: 712394
  - 10
    - Processing notepad text Hi, I am trying to parse data from notepad to excel using Vb6. A, B, C Field4 = 8.2 Field5 = 6.7 Field6 = 59 Field7 = 5.6 A, E, F Field4 = 7.2 Field5 = 6.9 Field6 = 60 Field7 = 5.8 I don't know how many datasets would be in a notepad. But I want to parse this data as rows in excel sheets: A B C 8.2 6.7 59 5.6 A E F 7.2 6.9 60 5.8 Can anyone help me with this? Thanks FF Tag: How to create password protected word document?? Tag: 712375
  - 11
    - VB6 Data Environment - Sorting Commands Does anyone know how to sort the commands in the VB6 data environment. Once you have a large number of commands, it is time-consuming to keep looking through the commands for the one you need, as they are always listed in date-entered sequence. Thanks in advance - this will save HUGE amount of time! Tag: How to create password protected word document?? Tag: 712373
  - 12
    - RE: VB Express 2008 I am tired of you Positioning the cursor to discover exact coordinates of a "screen element" ( ie: automate clicking of a button on an IFRAME of a webpage ). Is there a way to get mouse position from anywhere on the desktop? I know how to retrieve coordinates within a form. That's easy. Internet searches provide uses for GetMousePos() API. They haven't worked for me. Any help is appreciated. Thanks, -Extech Tag: How to create password protected word document?? Tag: 712370
  - 13
    - Please ignore my last message - sent to wrong group Sorry. Tag: How to create password protected word document?? Tag: 712359
  - 14
    - Adding Total Number of slides to the page number field in the footer I was looking for a feature in powerpoint that would be the equivalent to one that exists in MS Word. That is, in Word I can add a field in the footer to read "page 5 of 12". Powerpoint only seems to have the slide number. I suspect this might be where VBA comes in. Anyone have some sample code to do this? (That is if this is the solution path). thanks Tag: How to create password protected word document?? Tag: 712358
  - 15
    - OT: Resume Help Hi guys, sorry for the slightly off-topic post, but there's not a lot of appropriate public forums for this sort of thing, and since it's techie-oriented, I figured a newsgroup was as good a place as any to start. So here's the problem: I'm writing a functional resume (that's skills-based, for those who aren't familiar), and I'm trying to figure out how to best categorize my skills. Someone suggested that I might want to separate out the design environments (presumably for Access, SQL Server, and VB), but I'm at a loss as to how to do that without creating redundancies or conflicting categories. So if you were trying to organize the following skills, what would you do? I've left my categories in the list below. Any suggestions on anything else are welcome. And of course, if you're looking to hire someone with this skill-set, or know someone who is, it goes without saying that that's also QUITE welcome! Formatting the list in plain-text is a bit of a challenge, but I've done what I can. (Note: this looks best in a fixed-width font.) DATABASES Access 15 years SQL Server 2000 4 years Database Design 15 years Query Optimization 10 years Reporting Tools 12 years Replication 5 years T-SQL 4 years PROGRAMMING LANGUAGES Visual Basic for Applications 15 years Visual Basic 6.0 7 years Object-Oriented Programming 15 years Windows API 12 years Assembly Language (80x86, 680x0, 65xx) 2-5 years C variants, Pascal/Delphi, Python Familiar DATA ACCESS TECHNOLOGIES ADO 7 years DAO 10 years BUSINESS APPLICATIONS Excel 10 years Powerpoint 2 years Word 18 years WordPerfect 10 years Thanks, Rob Tag: How to create password protected word document?? Tag: 712243
  - 16
    - Error: -2147417848 & Vista I have an application written in VB.Net which dynamically hosts VB6 ocx (written in house). The appilcation works fine on XP or Windows 2000. It also works fine on Vista if run in debug mode with the "Visual Studio hosting process" selected. But, when run as a compiled application, it will fail with Automation error -2147417848, The object invoked has disconnected from its clients. I have found the line the the app chokes on(see below), but not really sure why? Again, this only occurs on Vista when I run the compiled version of the app. Any ideas? Thanks. 'dynamically create the control, with picture box as it's container Set m_objVBControlExtender(lngTabNumber) = UserControl.Controls.Add _ ("MyControl", strInstanceName, pic(lngTabNumber)) m_objVBControlExtender is an aray of VBControlExtender objects. Tag: How to create password protected word document?? Tag: 712205
  - 17
    - Been away for a few months.... And I come back and see that things have not changed here. Mike W and Bill Mc are still arguing about the same old BS. Anyway Mike, something I thought you might be interested to know is they got rid of gosub in vb.net only to bring it back in the form of anonymous delegates. You can define a code block within a routine and call it from anywhere in that routine or from anywhere else in the entire project. Cheers, Michael Tag: How to create password protected word document?? Tag: 712197
  - 18
    - Problem in Vista with ActiveX cannot create object for Word.Application Hi, I have an application that runs just fine in WinXp, but when run in Vista I get the error ActiveX cannot create object for the Line Set wrd = CreateObject("Word.Application") wrd is dimmed as Word.Application for early binding, I also tried Dimmed as Object for late binding, but got the same error. References are to Microsoft Office 12.0 and ActiveX Data objects 6.0 Any help pointing to a solution of the problem appreciated. Code: Private Sub Form_Load() Dim sFolder As String Dim sRepNa As String Dim fso Dim i As Long Dim x As Long Dim Y As Long Dim RepType As String Dim sMsg As VbMsgBoxResult Dim MyVar() As String On Error Resume Next ShowProg 'get screen size and set toolbar GetTheScreenSize sSize, MyWidth SetWindowPos hwnd, conHwndTopmost, 0, 0, Screen.Width, MyWidth, conSwpNoActivate Or conSwpShowWindow 'Create options menu for user CreateMenu ProgBar Sleep 100 'Check report type and open correct one If ReportType = "Incident" Then If ApiFileExists(UserPath & "Temp.doc") Then sMsg = MsgBox("A Temp Report Exists In Your Personal File, Do You Want To Open It?" & vbCrLf & vbCrLf & _ "If You Continue With A New Report You Will Lose The Temp Report!", vbYesNo + vbInformation, SecRep) If sMsg = vbYes Then sFolder = UserPath GoTo ReviewPersonal Exit Sub End If End If RepType = "Report.doc" ChangeStatus "Program Opening New Incident Report Form!" Me.Caption = "SecRep Security Program Incident Report Toolbar For " & PropName Me.sRetOfficer.Visible = False Me.sMveOpt.Visible = False Me.sSveClose.Visible = False Me.sSveOpen.Visible = False Me.sScnOpt.Visible = False Me.sCloseOpt.Visible = False If Not ExtractForm(RepType) Then Me.Hide If Not (wrd Is Nothing) Then wrd.Visible = False ShowMain MsgBox "There Was A Problem In The Extract Dll Function!" & vbCrLf & vbCrLf & _ " Contact Network Department!", vbOKOnly + vbCritical, SecRep CleanUp SetStatus Err.Clear Timer2.Enabled = True Exit Sub End If Set wrd = CreateObject("Word.Application") ' Error Shown here wrd.Documents.Open UserPath & RepType Me.Show wrd.Visible = True wrd.Activate lngTmr = 0 TmrfrmSave.Enabled = True SetStatus HideMain If Err.Number <> 0 Then ShowMain If Not (wrd Is Nothing) Then wrd.Visible = False Me.Hide MsgBox "Program was unable to open " & RepType & "!" & vbCrLf & vbCrLf & _ " Contact The Network Department!", vbOKOnly + vbCritical, SecRep ErrorLog Err.Number, Err.Description, UserName, Erl, "frmIncidRep Opening " & RepType 'Remove any copies of report form and close word CleanUp SetStatus Err.Clear Timer2.Enabled = True Exit Sub End If Exit Sub ElseIf ReportType = "Review" Then Me.Caption = "SecRep Security Program Review Incident Reports Toolbar For " & PropName Me.sSaveOnly.Visible = False Me.sSave.Visible = False Me.sCancel.Visible = False If strReviewWhat = "Review" Then sFolder = App.Path & "\" & PropName & SaveIncid ElseIf strReviewWhat = "Final" Then sFolder = App.Path & "\" & PropName & MoveIncid Me.sMveOpt.Visible = False ElseIf strReviewWhat = "" Then 'Show frmMain ShowMain MsgBox "Program has not been told which, ""Final"" Or ""Review"", folder to open!", vbOKOnly + vbInformation, SecRep 'Enable timer to close this form and clean up Timer2.Enabled = True Exit Sub End If ReviewPersonal: MyVar = FileList(sFolder, "*.doc") Set wrd = CreateObject("Word.Application") If TypeName(MyVar) <> "Boolean" Then For i = LBound(MyVar) To UBound(MyVar) If InStr(1, sFolder & MyVar(i), "~", vbBinaryCompare) > 0 Then wrd.Quit Set wrd = Nothing Me.Hide ProgBar SetStatus ShowMain MsgBox "These Files Are In Use And A Temporary Files Exists" & Chr(13) & Chr(13) & _ " Please Try Again Later", vbOKOnly + vbInformation, SecRep Timer2.Enabled = True Exit Sub Else wrd.Documents.Open sFolder & MyVar(i) End If Next Else MsgBox "No files found" End If wrd.Visible = True wrd.Activate GoTo Skip Set fso = wrd.FileSearch 'Search loop With fso .NewSearch .FileName = "*.doc" .LookIn = sFolder .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count For x = 1 To Len(.FoundFiles(i)) sRepNa = Right(.FoundFiles(i), x) If Left(sRepNa, 1) = "~" Then Me.Hide wrd.Visible = False ProgBar For Y = 1 To wrd.Documents.Count wrd.ActiveDocument.Close Sleep (300) Next Y wrd.Quit Set wrd = Nothing SetStatus ShowMain MsgBox "These Files Are In Use And A Temporary Files Exists" & Chr(13) & Chr(13) & _ " Please Try Again Later", vbOKOnly + vbInformation, SecRep Timer2.Enabled = True Exit Sub End If Next x Next i For i = 1 To .FoundFiles.Count wrd.Documents.Open (.FoundFiles(i)), ConfirmConversions:=False, _ ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="morgan", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="morgan", _ WritePasswordTemplate:="" wrd.WindowState = wdWindowStateMaximize Next i End With Skip: If Err.Number <> 0 Then MsgBox "There Was An Error Trying To Open The Reports, Please Try Again!", _ vbOKOnly + vbInformation, SecRep Me.Hide If Not (wrd Is Nothing) Then wrd.Visible = False CleanUp ShowMain SetStatus Set fso = Nothing ErrorLog Err.Number, Err.Description, UserName, Erl, "frmIncidRep Opening Review Reports" Timer2.Enabled = True Exit Sub End If If i <= 1 Then For x = 1 To wrd.Documents.Count If wrd.Documents.Count = 0 Then Exit For wrd.ActiveDocument.Close Sleep (300) Next x ProgBar Sleep 200 ShowMain SetStatus MsgBox "No Reports Found In Path """ & sFolder & """", vbOKOnly, SecRep Set fso = Nothing Timer2.Enabled = True Exit Sub End If ProgBar Set fso = Nothing Me.Show HideMain SetStatus wrd.Visible = True wrd.ActiveWindow.SetFocus Exit Sub ElseIf ReportType = "ReviewFinal" Then ElseIf ReportType = "Trespass" Then RepType = "Trespass.doc" ChangeStatus "Program Opening New Trespass Report Form!" Me.Caption = "SecRep Security Program Trespass Report Toolbar For " & PropName Me.sAdd3.Visible = False Me.sRepHead2.Visible = False Me.sSveClose.Visible = False Me.sSveOpen.Visible = False Me.sSaveOnly.Visible = False Me.sScnOpt.Visible = False Me.sCancel.Visible = True Me.sCloseOpt.Visible = False If Not ExtractForm(RepType) Then Me.Hide If Not (wrd Is Nothing) Then wrd.Visible = False ShowMain MsgBox "There Was A Problem In The Extract Dll Function!" & vbCrLf & vbCrLf & _ " Contact Network Department!", vbOKOnly + vbCritical, SecRep CleanUp SetStatus Err.Clear Timer2.Enabled = True Exit Sub End If Set wrd = CreateObject("Word.Application") wrd.Documents.Open UserPath & RepType Me.Show wrd.Visible = True wrd.Activate SetStatus HideMain If Err.Number <> 0 Then ShowMain If Not (wrd Is Nothing) Then wrd.Visible = False Me.Hide MsgBox "Program was unable to open " & RepType & "!", vbOKOnly + vbCritical, SecRep 'Remove any copies of report form and close word CleanUp SetStatus Err.Clear ErrorLog Err.Number, Err.Description, UserName, Erl, "frmIncidRep Opening Trespass.doc" Timer2.Enabled = True Exit Sub End If Exit Sub ElseIf ReportType = "ReviewTres" Then ElseIf ReportType = "ReviewFinalTres" Then End If End Sub Public Sub MovePhotos(ScanFile) Dim MyScanPath As String Dim x As Long Dim sMsg As VbMsgBoxResult On Error Resume Next wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus wrd.Selection.Goto What:=wdGoToLine, Which:=wdGoToLast If wrd.Selection.Characters.Count > 0 Then wrd.Selection.MoveRight Unit:=wdCharacter, Count:=Count + 1 wrd.Selection.TypeParagraph End If If Err.Number <> 0 Then wrd.Visible = False ShowMain MsgBox "Unable To Move To End Of Report To Attach Photos!", vbOKOnly + vbInformation, SecRep Err.Clear wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus HideMain Me.Visible = True Exit Sub End If 'Show main form and message label along with progressbar ShowProg For x = 0 To frmScanPaper.File1.ListCount - 1 MyScanPath = frmScanPaper.Dir1.Path & "\" & frmScanPaper.File1.List(x) wrd.Selection.InlineShapes.AddOLEObject ClassType:="Package", FileName:= _ MyScanPath, LinkToFile:=False, DisplayAsIcon:=False Sleep 100 If (frmMain.ProgressBar1.Value + (x + 5)) >= 100 Then _ frmMain.ProgressBar1.Value = 0 frmMain.ProgressBar1.Value = frmMain.ProgressBar1.Value + (x + 5) Next x If Err.Number <> 0 Then ShowMain MsgBox "Unable To Attach All The Photos!", vbOKOnly + vbInformation, SecRep Err.Clear wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus HideMain Me.Visible = True Exit Sub End If Clipboard.Clear Sleep (100) ProgBar 'complete progressbar wrd.Visible = False ShowMain 'Remove message and progressbar and show main form sMsg = MsgBox("All Finished Attaching Photos" & Chr(13) & Chr(13) & "Do You Want To Delete The Photos?", vbYesNo + vbQuestion, "SecRep Info.....") If sMsg = vbYes Then For x = 0 To frmScanPaper.File1.ListCount - 1 MyScanPath = frmScanPaper.Dir1.Path & "\" & frmScanPaper.File1.List(x) Kill MyScanPath Next x ApiFolderDelete (frmScanPaper.Dir1.Path) End If Me.Show wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus HideMain frmScanPaper.Timer1.Enabled = True Tag: How to create password protected word document?? Tag: 712185
  - 19
    - Vertical Scollbar Extended VB6 Is there a way to get the vert scroll bar to accept a long for min, max and value? Is there another vertical control that will accept longs? Is there an easy way to get the vert scroll bar to simulate longs? Tag: How to create password protected word document?? Tag: 712182
  - 20
    - 0x0000306A to readable number What a file format is that and how can I get a number from it that normal humans can read? Tag: How to create password protected word document?? Tag: 712173
  - 21
    - Windows Server 2003 After installing SP2 for Windows Server 2003, almost all of my services no longer start. I am unable to start or modify any individual services especially "RPC". I receive error 1068 when attempting to start a service. I also can't edit or modify any settings. For example, if I right click on a particular service and select properties, I get no response. I have to get this server running by tomorrow otherwise the whole company will be down. Spend the whole day Saturday checking Microsoft Site for solutions, but can't seem to find one that will work. Researching so far points to services that use the Network Service or Local Service account not starting after installing SP2. Some suggestions included using "gpedit.msc" to modify the Group Policy setting for "Impersonate a client after authentication". The problem is I can't modify any settings that are displayed. Please... any help would be greatly appreciated. Tag: How to create password protected word document?? Tag: 712142
  - 22
    - Question about hot cells and enter/ leave I have a grid in which cells are drawn. It's only 1 hWnd and 1 DC. When I move over a cell, it is zoomed in step by step in a loop (it gets bigger and bigger until it reached its final "zoomed" size which is 1.5x its original size). Let's say this takes 300 ms and it's zoomed in 1 more step each 5 ms. When I mouse the mouse over a second cell while the first cell has not yet completely zoomed in, I cannot react immediately because the first cell is still in its zoom loop. Can somebody tell me how to react to this problem? Tag: How to create password protected word document?? Tag: 712078
  - 23
    - vb taster Hi all Does anyone know if Australia produces any decent beer. I tried a can of that VB stuff during a visit to my daughter and it stinks, as does all other Australian produced beer I've tried. I did ask some people around the bar but they just mumbled something about rattling my dags! So uncouth and unsophisticated those Auzzies, and so unhelpful. Its what you might expect of course with most of them being the descendents of criminals of extremely low intellect. By the way, I hope I'm in the right newsgroup for general discussions about Victoria Bitter, or that someone can give me the answer anyway before pointing me to the correct group if I am not? Mike Tag: How to create password protected word document?? Tag: 712072
  - 24
    - SQL database for use with VB6 Hi All, What is a good SQL database to use with VB6? My first thought was the Microsoft Jet database (i.e. Microsoft Access by any other name) for use with VB6, but Microsoft basically discontinued the line and it is not exactly present with the Vista version of the ADO / Jet install. Without tying itno a server, is there a nice stable, not shareware, SQL database engine that VB6 users can tie into and/or distribute along with an application. Thoughts? Thanks in advance, Sarah Marci Tag: How to create password protected word document?? Tag: 712063
  - 25
    - ListView Mania VB6 SP6 OK, so I am now trying to make a listview peek at an array of data. The user can vert scroll the listview and the app will load the array data as it scrolls. I do not need any of the fancy virtual listview stuff I have seen out there. 1) trying not to use subclassing (but would like pointers if I am forced to) 2) want to detect vert scrolling but do not see a direct way. Is there? 3) have a timer running to look at the first line "FirstVisible Line=" & ListView1.GetFirstVisible It signals a change when the first line changes. I could eliminate the timer if I knew when the listview vert scrolled. 4) now I need to know how many lines (form and listview is resizable). So there probably is a SendMessage to get that. How do I do that? Really hate to try to calculate number of lines based on listview height. Would need to know if horz scroll bar is present and the height of each row. Fast vert scrolling is not needed. I think that is all I need to make it work other than a little housekeeping for pointer into the array. Tag: How to create password protected word document?? Tag: 712062

I've an unique requirement, i'm not able to find ideal solution for
this. I'm generating a report in word format from crystal report
through asp.net code. Now, I've to set password for the word document.
I've some question regarding on this?

Leave crystal report option, Is it really possible to set password
product for a word document from asp.net with out microsoft
automation(word.dll,mso.dll)?? coz. microsoft strongly suggest that
not use micrsoft autiomation in server side.

Is there any third party tool/components to achieve this? I'm planning
to implement this through javascript in client side, is it feasible???

Thanks in advace.

Top

Re: How to create password protected word document?? by Paul

Paul
Wed Oct 08 08:39:15 CDT 2008

On Tue, 7 Oct 2008 21:08:44 -0700 (PDT), ramarnath@gmail.com wrote:

¤ I've an unique requirement, i'm not able to find ideal solution for
¤ this. I'm generating a report in word format from crystal report
¤ through asp.net code. Now, I've to set password for the word document.
¤ I've some question regarding on this?
¤
¤ Leave crystal report option, Is it really possible to set password
¤ product for a word document from asp.net with out microsoft
¤ automation(word.dll,mso.dll)?? coz. microsoft strongly suggest that
¤ not use micrsoft autiomation in server side.
¤
¤ Is there any third party tool/components to achieve this? I'm planning
¤ to implement this through javascript in client side, is it feasible???
¤
¤ Thanks in advace.

I would post your question in microsoft.public.dotnet.framework.aspnet to see if anyone has any
ideas there.

I'm not aware of any method of setting a password for a Word document other than using automation.
In addition, the Office apps aren't designed to run in an unattended multi-threaded environment as
you mentioned.

BTW, there is password recovery software available that can easily crack a Word document password.

Paul
~~~~
Microsoft MVP (Visual Basic)

Top