excel vba - Stop Save File event by using another command button -

-

am new in vb. have excel file auto saving in intervals. want stop auto saving function using command button... plz me ... code ...

private sub autosave_cmd_click()

dtime = time + timevalue("00:00:05") 'set time per requirement

with application

   .ontime dtime, "autosaveas"    .enableevents = false    .displayalerts = false    thisworkbook.saveas "c:\<my file path>\auto_save_macro.xls"    .enableevents = true    application.enableevents = false

end with

end sub

now question code stop auto save function through "stop_auto_save_cmd" command button? please me ... in advance ...

private sub stop_auto_save_cmd_click()

'what code here?

end sub

your code snippet looks lot code found here - difference being think code @ link works, , yours doesn't.

when describe how "working" code works, should able figure out why yours doesn't:

public dtime date   sub autosaveas()      dtime = time + timevalue("00:05:00")      application          .ontime dtime, "autosaveas"          .enableevents = false          .displayalerts = false          thisworkbook.saveas "filepath&namehere(no .xls)"          .enableevents = true      end  end sub

here see public variable dtime declared @ module level; set sensible time (now + 5 minutes) inside routine called autosaveas(), instructs application (i.e., excel) execute call autosaveas when timer runs out (in example, every 5 minutes). after setting "call me again in 5 minutes" command, performs actual saveas, alerts disabled.

to work need call autosaveas first time; after that, "call itself" because timer go off every 5 minutes (it's function keeps hitting own snooze button, if like). can done in code associated button that's clicked "autosave on" functionality (or autoopen event - depends on behavior want):

private sub autosaveon_click()     autosaveas end sub

and finally, need "turn off" event loop (instead of "snooze", hit "off" on alarm clock). put in handler ("off") button:

private sub autosaveoff_click()     application.ontime dtime, "autosaveas", , false  end sub

the fourth parameter, false, says "unschedule this". turns off "infinite loop" started first call autosaveas. unplugs alarm clock, if like.

to complete, must add handler when file closed - because timer keep running if close workbook leave excel open, , give strange , annoying error message. need this:

private sub workbook_beforeclose(cancel boolean)      application.ontime dtime, "autosaveas", , false  end sub

note - lightly adapted code link gave above, , want give credit original author (dave hawley) example. did show how interpret (and similarity code have, think have seen same site, or @ least copy of copy of site...)


Comments

Post a Comment

Popular posts from this blog

java - Jmockit String final length method mocking Issue -

-
using jmockit 1.2 jar, trying mock string's length method getting unexpected invocation exception: failed: test java.lang.illegalstateexception: missing invocation mocked type @ point; please make sure such invocations appear after declaration of suitable mock field or parameter @ stringdemo.testa$1.<init>(testa.java:17) @ stringdemo.testa.test(testa.java:13) i using testng: @test public void test() throws exception { new expectations() { @mocked("length") string astring; { astring.length(); result = 2; } }; system.out.println(a.showa("test")); } } actual class a: public class { public static int showa(string str){ int a= str.length(); return a; } } this wrong way of recording expected results. shouldn't mock , record string's length() method, record showa() instead. here solution @suppresswarnings("unused...
Read more

asp.net - Razor Page Hosted on IIS 6 Fails Every Morning -

-
i have simple page in intranet uses razor/asp fetch single record table , display it, plus few graphic, dashboard display. meaning, no user intervention other first time open ie internal url. the problem having every morning ie displays "page not found or network error" message. refresh page, , it's stuck , doesn't display anything. try different pc, open ie internal url , it's stuck... ...until following: login server hosting page run inetmgr go web sites, etc right click on page that's giving me problem , select browse at moment, error message: server error in '/' application. -------------------------------------------------------------------------------- type of page not served. description: type of page have requested not served because has been explicitly forbidden. extension '.cshtml' may incorrect. please review url below , make sure spelled correctly. requested url: /application/dashboard.cshtml ---------------...
Read more

ios - Can NSManagedObject conform to NSCoding -

-
i need transfer single object across device. right converting nsmanagedobject dictionary , archiving , sending nsdata. upon receiving unarchiving it. transfer nsmanagedobject archiving , unarchiving instead of creating intermediate data object. @interface test : nsmanagedobject<nscoding> @property (nonatomic, retain) nsstring * title; @end @implementation test @dynamic title; - (id)initwithcoder:(nscoder *)coder { self = [super init]; if (self) { self.title = [coder decodeobjectforkey:@"title"]; //<crash } return self; } - (void)encodewithcoder:(nscoder *)coder { [coder encodeobject:self.title forkey:@"title"]; } @end nsdata *archivedobjects = [nskeyedarchiver archiveddatawithrootobject:testobj]; nsdata *objectsdata = archivedobjects; if ([objectsdata length] > 0) { nsarray *objects = [nskeyedunarchiver unarchiveobjectwithdata:objectsdata]; } the problem above code is. crashes @ self.title in initwithcoder sa...
Read more